diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 1d0ceb1ded..f599081996 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,15 @@ 2002-12-01 13:30 UTC+0100 Foo Bar */ + +2007-04-11 15:25 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) + * harbour/contrib/libnf/mouse1.prg + ! Fixed unused variable. + + * harbour/source/compiler/genc.c + % Compact compiler output (-gc0) made even more compact + (~20% size reduction). + 2007-04-10 14:35 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/include/Makefile + added hbregex.h diff --git a/harbour/contrib/libnf/mouse1.prg b/harbour/contrib/libnf/mouse1.prg index 784c588fe5..6e922a4b73 100644 --- a/harbour/contrib/libnf/mouse1.prg +++ b/harbour/contrib/libnf/mouse1.prg @@ -730,8 +730,7 @@ RETURN NIL * $END$ */ -FUNCTION FT_MGETPAGE(nPage) - +FUNCTION FT_MGETPAGE() // Set up register /* diff --git a/harbour/source/compiler/genc.c b/harbour/source/compiler/genc.c index 371911c5dd..5da08c6586 100644 --- a/harbour/source/compiler/genc.c +++ b/harbour/source/compiler/genc.c @@ -2572,7 +2572,7 @@ static void hb_compGenCCompact( PFUNCTION pFunc, FILE * yyc ) ULONG lPCodePos = 0; int nChar; - fprintf( yyc, "{\n static const BYTE pcode[] =\n {\n\t" ); + fprintf( yyc, "{\n\tstatic const BYTE pcode[] =\n\t{\n\t\t" ); nChar = 0; while( lPCodePos < pFunc->lPCodePos ) @@ -2580,11 +2580,11 @@ static void hb_compGenCCompact( PFUNCTION pFunc, FILE * yyc ) ++nChar; if( nChar > 1 ) - fprintf( yyc, ", " ); + fprintf( yyc, "," ); if( nChar == 15 ) { - fprintf( yyc, "\n\t" ); + fprintf( yyc, "\n\t\t" ); nChar = 1; } @@ -2595,6 +2595,6 @@ static void hb_compGenCCompact( PFUNCTION pFunc, FILE * yyc ) if( nChar != 0) fprintf( yyc, "\n" ); - fprintf( yyc, " };\n\n" ); - fprintf( yyc, " hb_vmExecute( pcode, symbols );\n}\n" ); + fprintf( yyc, "\t};\n\n" ); + fprintf( yyc, "\thb_vmExecute( pcode, symbols );\n}\n" ); }