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

2007-04-11 15:25 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* harbour/contrib/libnf/mouse1.prg
     ! Fixed unused variable.

   * harbour/source/compiler/genc.c
     % Compact compiler output (-gc0) made even more compact
       (~20% size reduction).
This commit is contained in:
Viktor Szakats
2007-04-11 13:26:46 +00:00
parent 3fe91afe15
commit 9d1de9cdfa
3 changed files with 15 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
harbour/ChangeLog
View File

@@ -8,6 +8,15 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
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

3
harbour/contrib/libnf/mouse1.prg
View File

@@ -730,8 +730,7 @@ RETURN NIL
* $END$
*/
FUNCTION FT_MGETPAGE(nPage)
FUNCTION FT_MGETPAGE()
// Set up register
/*

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

@@ -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" );
}