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

2008-05-14 00:27 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/compiler/complex.c
    ! added casting to unsigned char to force syntax error when
      some unknown tokens appear. Negative values bison recognizes
      as end of input.

  * harbour/contrib/rddads/adsmgmnt.c
    ! cleaned one warning
This commit is contained in:
Przemyslaw Czerpak
2008-05-13 22:27:36 +00:00
parent 87e4a9277b
commit 01ac9cd6f1
3 changed files with 14 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/source/compiler/complex.c
View File

@@ -684,7 +684,7 @@ int hb_complex( YYSTYPE *yylval_ptr, HB_COMP_DECL )
return IDENTIFIER;
}
pLex->iState = OPERATOR;
return pToken->value[ 0 ];
return ( UCHAR ) pToken->value[ 0 ];
case HB_PP_TOKEN_EQ:
if( HB_SUPPORT_HARBOUR && pToken->pNext && pToken->pNext->spaces == 0 &&
@@ -709,13 +709,13 @@ int hb_complex( YYSTYPE *yylval_ptr, HB_COMP_DECL )
case HB_PP_TOKEN_GT:
case HB_PP_TOKEN_REFERENCE:
pLex->iState = OPERATOR;
return pToken->value[ 0 ];
return ( UCHAR ) pToken->value[ 0 ];
case HB_PP_TOKEN_EOL:
pLex->fEol = TRUE;
case HB_PP_TOKEN_EOC:
pLex->iState = LOOKUP;
return pToken->value[ 0 ];
return ( UCHAR ) pToken->value[ 0 ];
case HB_PP_TOKEN_KEYWORD:
{
@@ -1311,7 +1311,7 @@ int hb_complex( YYSTYPE *yylval_ptr, HB_COMP_DECL )
return iType;
}
default:
return pToken->value[ 0 ];
return ( UCHAR ) pToken->value[ 0 ];
}
}