From 33a4b8ab19a62f71b69b65a61de88958374edaa4 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Thu, 14 Oct 1999 16:28:52 +0000 Subject: [PATCH] 19991014-18:17 GMT+1 --- harbour/ChangeLog | 6 ++++++ harbour/source/compiler/genc.c | 3 ++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index fff3656745..d2b7864d2c 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,9 @@ +19991014-18:17 GMT+1 Victor Szel + * source/compiler/genc.c + ! Fixed pcode generation with /gc0 switch for MODULENAME opcode. + There was an incrementation operator embedded in an expression, which + was not executed in this case. + 19991014-18:13 GMT+1 Bruno Cantero * source/rdd/dbcmd.c diff --git a/harbour/source/compiler/genc.c b/harbour/source/compiler/genc.c index eb88e30b03..6d65ab2763 100644 --- a/harbour/source/compiler/genc.c +++ b/harbour/source/compiler/genc.c @@ -439,8 +439,9 @@ void GenCCode( PHB_FNAME pFileName ) /* generates the C language output */ case HB_P_MODULENAME: fprintf( yyc, "\tHB_P_MODULENAME," ); - if( _bGenCVerbose ) fprintf( yyc, "\t/* %s */", ( char * ) pFunc->pCode + lPCodePos++ + 1 ); + if( _bGenCVerbose ) fprintf( yyc, "\t/* %s */", ( char * ) pFunc->pCode + lPCodePos + 1 ); fprintf( yyc, "\n" ); + lPCodePos++; while( pFunc->pCode[ lPCodePos ] ) { chr = pFunc->pCode[ lPCodePos++ ];