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

2010-06-22 13:48 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* src/compiler/complex.c
    ! HB_ULONG -> HB_SIZE in one cast.

  * src/pp/pplib.c
    ! HB_ULONG -> HB_ERRCODE

  * contrib/hbgt/asciisgt.c
    ! HB_ULONG -> HB_MAXUINT
This commit is contained in:
Viktor Szakats
2010-06-22 11:52:11 +00:00
parent 817700c0dc
commit 2275a9cd09
4 changed files with 13 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
harbour/ChangeLog
View File

@@ -16,6 +16,16 @@
The license applies to all entries newer than 2009-04-28.
*/
2010-06-22 13:48 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* src/compiler/complex.c
! HB_ULONG -> HB_SIZE in one cast.
* src/pp/pplib.c
! HB_ULONG -> HB_ERRCODE
* contrib/hbgt/asciisgt.c
! HB_ULONG -> HB_MAXUINT
2010-06-22 13:33 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* src/vm/fm.c
! Replaced 'long' with HB_ISIZ in FM stats code.

2
harbour/contrib/hbgt/asciisgt.c
View File

@@ -22,7 +22,7 @@ HB_FUNC( GT_ASCIISUM )
const char * str = hb_parcx( 1 );
HB_ISIZ len = hb_parclen( 1 );
HB_ISIZ i;
HB_ULONG ascSum = 0;
HB_MAXUINT ascSum = 0;
for( i = 0; i <= len; i++, str++ )
ascSum += *str;

2
harbour/src/compiler/complex.c
View File

@@ -278,7 +278,7 @@ static const char * hb_comp_tokenString( YYSTYPE *yylval_ptr, HB_COMP_DECL, PHB_
yylval_ptr->valChar.dealloc = HB_FALSE;
if( HB_PP_TOKEN_ALLOC( pToken->type ) )
{
yylval_ptr->valChar.dealloc = ( HB_ULONG ) pToken->len != strlen( pToken->value );
yylval_ptr->valChar.dealloc = ( HB_SIZE ) pToken->len != strlen( pToken->value );
pToken->value = hb_compIdentifierNew( HB_COMP_PARAM, pToken->value,
yylval_ptr->valChar.dealloc ? HB_IDENT_COPY : HB_IDENT_FREE );
if( !yylval_ptr->valChar.dealloc )

2
harbour/src/pp/pplib.c
View File

@@ -75,7 +75,7 @@ static void hb_pp_ErrorMessage( void * cargo, const char * szMsgTable[],
PHB_ITEM pError;
hb_snprintf( szMsgBuf, sizeof( szMsgBuf ), szMsgTable[ iCode - 1 ],
szParam1, szParam2 );
pError = hb_errRT_New( ES_ERROR, "PP", 1001, ( HB_ULONG ) iCode, szMsgBuf,
pError = hb_errRT_New( ES_ERROR, "PP", 1001, ( HB_ERRCODE ) iCode, szMsgBuf,
NULL, 0, EF_NONE | EF_CANDEFAULT );
hb_errLaunch( pError );
hb_errRelease( pError );