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

2001-08-06 09:15 UTC-0800 Ron Pinkas <ron@profit-master.com>

Browse Source 
* source/compiler/genc.c
     ! Improved sync logic of HB_SETMACRO() level, to only activate once per module with same level used by compiler.
This commit is contained in:
Ron Pinkas
2001-08-06 16:13:10 +00:00
parent 098d1ec079
commit 4b56597c06
2 changed files with 16 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
2001-08-06 09:15 UTC-0800 Ron Pinkas <ron@profit-master.com>
* source/compiler/genc.c
! Improved sync logic of HB_SETMACRO() level, to only activate once per module with same level used by compiler.
2001-08-06 10:33 UTC+0300 Chen Kedem <niki@actcom.co.il>
* doc/funclist.txt
! Fix excessive use of global replace forcing 'n' or 'N' into 'S'

26
harbour/source/compiler/genc.c
View File

@@ -55,6 +55,7 @@ void hb_compGenCCode( PHB_FNAME pFileName ) /* generates the C language ou
PCOMCLASS pClass;
FILE * yyc; /* file handle for C output */
PINLINE pInline = hb_comp_inlines.pFirst;
BOOL bSyncMacro = TRUE;
if( ! pFileName->szExtension )
pFileName->szExtension = ".c";
@@ -204,8 +205,8 @@ void hb_compGenCCode( PHB_FNAME pFileName ) /* generates the C language ou
hb_comp_szPrefix, pFileName->szName );
if( hb_comp_Supported )
fprintf( yyc, "\nextern ULONG hb_macroSetMacro( BOOL bSet, ULONG flag );\n" );
fprintf( yyc, "extern ULONG hb_macroSetMacro( BOOL bSet, ULONG flag );\n"
"static BOOL hb_bSetMacroLevel = TRUE;\n\n" );
/* Generate functions data
*/
@@ -231,21 +232,18 @@ void hb_compGenCCode( PHB_FNAME pFileName ) /* generates the C language ou
else
hb_compGenCReadable( pFunc, yyc );
fprintf( yyc, " };\n\n" );
fprintf( yyc, " };\n\n" );
if( hb_comp_Supported )
if( bSyncMacro )
{
if( hb_comp_Supported & HB_COMPFLAG_HARBOUR )
{
fprintf( yyc, " hb_macroSetMacro( TRUE, %i );\n\n", HB_SM_HARBOUR );
}
fprintf( yyc, " if( hb_bSetMacroLevel )\n"
" {\n" );
fprintf( yyc, " hb_macroSetMacro( %i, %i );\n", ( hb_comp_Supported & HB_COMPFLAG_HARBOUR ), HB_SM_HARBOUR );
fprintf( yyc, " hb_macroSetMacro( %i, %i );\n", ( hb_comp_Supported & HB_COMPFLAG_XBASE ), HB_SM_XBASE );
fprintf( yyc, " hb_bSetMacroLevel = FALSE;\n" );
fprintf( yyc, " };\n\n" );
if( hb_comp_Supported & HB_COMPFLAG_XBASE )
{
fprintf( yyc, " hb_macroSetMacro( TRUE, %i );\n\n", HB_SM_XBASE );
}
hb_comp_Supported = 0;
bSyncMacro = FALSE;
}
fprintf( yyc, " hb_vmExecute( pcode, symbols );\n}\n\n" );