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

7
ChangeLog.txt
View File

@@ -7,6 +7,13 @@
Entries may not always be in chronological/commit order.
See license at the end of file. */
2018-03-16 19:10 UTC+0200 Phil Krylov (phil a t newstar.rinet.ru)
* include/hbexprb.c
* src/compiler/complex.c
* src/vm/memvars.c
* src/vm/strapi.c
! fixed compiler warnings emitted by GCC 7+
2018-02-23 15:15 UTC+0200 Alexey Myronenko (m.oleksa/at/ukr.net)
* src/debug/dbgwa.prg
! fixed position of the cursor in (reopened) F6-WA window

1
include/hbexprb.c
View File

@@ -900,6 +900,7 @@ static HB_EXPR_FUNC( hb_compExprUseRef )
case HB_EA_PUSH_POP:
case HB_EA_STATEMENT:
hb_compWarnMeaningless( HB_COMP_PARAM, pSelf );
/* fallthrough */
case HB_EA_DELETE:
HB_COMP_EXPR_FREE( pSelf->value.asReference );
break;

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 )
{