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

2018-03-16 19:10 UTC+0200 Phil Krylov (phil a t newstar.rinet.ru)

Browse Source 
* include/hbexprb.c
  * src/compiler/complex.c
  * src/vm/memvars.c
  * src/vm/strapi.c
    ! fixed compiler warnings emitted by GCC 7+
This commit is contained in:
Phil Krylov
2018-03-16 21:11:59 +03:00
parent d01a23c4bd
commit 19c4c58b3d
5 changed files with 13 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/compiler/complex.c
View File

@@ -837,6 +837,7 @@ int hb_comp_yylex( YYSTYPE * yylval_ptr, HB_COMP_DECL )
case HB_PP_TOKEN_EOL:
pLex->fEol = HB_TRUE;
/* fallthrough */
case HB_PP_TOKEN_EOC:
pLex->iState = LOOKUP;
return ( HB_UCHAR ) pToken->value[ 0 ];

2
src/vm/memvars.c
View File

@@ -574,7 +574,7 @@ char * hb_memvarGetStrValuePtr( char * szVarName, HB_SIZE * pnLen )
PHB_DYNS pDynVar;
char * szValue = NULL;
HB_TRACE( HB_TR_DEBUG, ( "hb_memvarGetStrValuePtr(%s, %p)", ( void * ) szVarName, ( void * ) pnLen ) );
HB_TRACE( HB_TR_DEBUG, ( "hb_memvarGetStrValuePtr(%s, %p)", szVarName, ( void * ) pnLen ) );
pDynVar = hb_memvarFindSymbol( szVarName, *pnLen );

6
src/vm/strapi.c
View File

@@ -881,7 +881,7 @@ void hb_retstrlen( void * cdp, const char * szText, HB_SIZE nLen )
{
HB_STACK_TLS_PRELOAD
HB_TRACE( HB_TR_DEBUG, ( "hb_retstrlen(%p,%s,%" HB_PFS "u)", cdp, ( const void * ) szText, nLen ) );
HB_TRACE( HB_TR_DEBUG, ( "hb_retstrlen(%p,%s,%" HB_PFS "u)", cdp, szText, nLen ) );
hb_itemPutStrLen( hb_stackReturnItem(), cdp, szText, nLen );
}
@@ -909,7 +909,7 @@ int hb_storstr( void * cdp, const char * szText, int iParam )
{
HB_STACK_TLS_PRELOAD
HB_TRACE( HB_TR_DEBUG, ( "hb_storstr(%p,%s,%d)", cdp, ( const void * ) szText, iParam ) );
HB_TRACE( HB_TR_DEBUG, ( "hb_storstr(%p,%s,%d)", cdp, szText, iParam ) );
if( iParam == -1 )
{
@@ -991,7 +991,7 @@ int hb_storstrlen( void * cdp, const char * szText, HB_SIZE nLen, int iParam )
{
HB_STACK_TLS_PRELOAD
HB_TRACE( HB_TR_DEBUG, ( "hb_storstrlen(%p,%s,%" HB_PFS "u,%d)", cdp, ( const void * ) szText, nLen, iParam ) );
HB_TRACE( HB_TR_DEBUG, ( "hb_storstrlen(%p,%s,%" HB_PFS "u,%d)", cdp, szText, nLen, iParam ) );
if( iParam == -1 )
{