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

and some minor typos in code

Browse Source
This commit is contained in:
Viktor Szakats
2009-02-11 19:49:09 +00:00
parent 3cfde68eaf
commit 56009aeac6
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/source/rtl/binnumx.c
View File

@@ -70,9 +70,9 @@ HB_FUNC( BIN2U )
{
const char * pszString = hb_itemGetCPtr( pItem );
if( ulLen >= 3 )
iResult = HB_GET_LE_UINT32( pszString );
uiResult = HB_GET_LE_UINT32( pszString );
else
iResult = HB_GET_LE_UINT16( pszString );
uiResult = HB_GET_LE_UINT16( pszString );
}
}
hb_retnint( uiResult );
@@ -81,8 +81,8 @@ HB_FUNC( BIN2U )
HB_FUNC( U2BIN )
{
char szResult[ 4 ];
UINT32 iValue = ( UINT32 ) hb_parnint( 1 );
HB_PUT_LE_UINT32( szResult, iValue );
UINT32 uiValue = ( UINT32 ) hb_parnint( 1 );
HB_PUT_LE_UINT32( szResult, uiValue );
hb_retclen( szResult, 4 );
}