fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2010-02-13 22:41 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* contrib/hbwin/hbdyn.c
    ! Fixed to honor length when returning HB_DYN_CTYPE_CHAR_UNSIGNED_PTR 
      by reference.
This commit is contained in:
Viktor Szakats
2010-02-13 21:42:06 +00:00
parent d702758a53
commit 38a295bf63
2 changed files with 13 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -17,6 +17,11 @@
past entries belonging to author(s): Viktor Szakats.
*/
2010-02-13 22:41 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* contrib/hbwin/hbdyn.c
! Fixed to honor length when returning HB_DYN_CTYPE_CHAR_UNSIGNED_PTR
by reference.
2010-02-13 20:52 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* contrib/hbwin/hbdyn.h
* contrib/hbwin/hbdyn.ch

10
harbour/contrib/hbwin/hbdyn.c
View File

@@ -254,7 +254,10 @@ static PHB_ITEM hb_u64ret( PHB_ITEM pItem, int iRetType, int iEncoding, HB_U64 n
break;
case HB_DYN_CTYPE_CHAR_UNSIGNED_PTR:
hb_itemPutC( pItem, ( const char * ) nRetVal );
if( nLen == -1 )
hb_itemPutC( pItem, ( const char * ) nRetVal );
else
hb_itemPutCL( pItem, ( const char * ) nRetVal, nLen );
break;
case HB_DYN_CTYPE_CHAR_PTR:
@@ -513,7 +516,10 @@ static PHB_ITEM hb_u32ret( PHB_ITEM pItem, int iRetType, int iEncoding, HB_DYNVA
break;
case HB_DYN_CTYPE_CHAR_UNSIGNED_PTR:
hb_itemPutC( pItem, ( const char * ) value.t.n32 );
if( nLen == -1 )
hb_itemPutC( pItem, ( const char * ) value.t.n32 );
else
hb_itemPutCL( pItem, ( const char * ) value.t.n32, nLen );
break;
case HB_DYN_CTYPE_CHAR_PTR: