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

2014-03-04 04:30 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

Browse Source 
* src/compiler/gencc.c
    ! pacified CLANG warning in -gc3 output (issue: #53)
This commit is contained in:
Przemysław Czerpak
2014-03-04 04:30:29 +01:00
parent 624698cd5a
commit 8e08bb8c2a
2 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
ChangeLog.txt
View File

@@ -10,6 +10,10 @@
* Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
*/
2014-03-04 04:30 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* src/compiler/gencc.c
! pacified CLANG warning in -gc3 output (issue: #53)
2014-03-04 04:03 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* src/vm/set.c
* src/vm/memvars.c

6
src/compiler/gencc.c
View File

@@ -1608,7 +1608,7 @@ static HB_GENC_FUNC( hb_p_seqbegin )
{
HB_GENC_LABEL();
fprintf( cargo->yyc, "\thb_xvmSeqBegin();\n\tdo {\n" );
fprintf( cargo->yyc, "\thb_xvmSeqBegin();\n\tfor( ;; ) {\n" );
cargo->iNestedBlock++;
return 4;
}
@@ -1620,9 +1620,9 @@ static HB_GENC_FUNC( hb_p_seqend )
HB_GENC_LABEL();
if( nOffset == 4 ) /* no RECOVER clasue */
fprintf( cargo->yyc, "\t} while( 0 );\n\tif( hb_xvmSeqEnd() ) break;\n" );
fprintf( cargo->yyc, "\tbreak;\n\t}\n\tif( hb_xvmSeqEnd() ) break;\n" );
else /* RECOVER exists */
fprintf( cargo->yyc, "\tif( hb_xvmSeqEndTest() ) break;\n\tgoto lab%05" HB_PFS "u;\n\t} while( 0 );\n",
fprintf( cargo->yyc, "\tif( hb_xvmSeqEndTest() ) break;\n\tgoto lab%05" HB_PFS "u;\n\t}\n",
HB_GENC_GETLABEL( nPCodePos + nOffset ) );
cargo->iNestedBlock--;
return 4;