From 8cf924a7065b02de11809a0eb9097ded4f072919 Mon Sep 17 00:00:00 2001 From: "David G. Holm" Date: Tue, 1 Jun 1999 17:07:15 +0000 Subject: [PATCH] See ChangeLog entry 19990601-12:00 EDT David G. Holm --- harbour/ChangeLog | 8 ++++++++ harbour/makefile.b31 | 3 ++- harbour/source/compiler/harbour.y | 3 ++- 3 files changed, 12 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 752795629c..3559b8680b 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,11 @@ +19990601-12:00 EDT David G. Holm + * makefile.b31 + - Ran into problems using GT API with tests\working\mathtest, so removed + USE_GTAPI from default use. + * source/compiler/harbour.y + - Added missing third parameter (a copy of the first one) to the comment + section of the generated C pcode for _PUSHDOUBLE. + 19990601-12:15 CET Eddie Runia * tests/working/inifiles.prg new Mab version installed diff --git a/harbour/makefile.b31 b/harbour/makefile.b31 index a2ed6a3d59..1d62f97879 100644 --- a/harbour/makefile.b31 +++ b/harbour/makefile.b31 @@ -10,7 +10,8 @@ .path.obj = obj .path.prg = source\rtl -c_opt = -mh -O2 -I.\include -DUSE_GTAPI +#c_opt = -mh -O2 -I.\include -DUSE_GTAPI +c_opt = -mh -O2 -I.\include PROJECT: harbour.lib hbtools.lib terminal.lib libs\win16\terminal.lib harbour.exe diff --git a/harbour/source/compiler/harbour.y b/harbour/source/compiler/harbour.y index c3e73cdbfb..435d3a76c7 100644 --- a/harbour/source/compiler/harbour.y +++ b/harbour/source/compiler/harbour.y @@ -2221,7 +2221,8 @@ void GenCCode( char *szFileName, char *szName ) /* generates the C languag fprintf( yyc, "%i, ", ( ( BYTE * ) pFunc->pCode )[ lPCodePos + i ] ); fprintf( yyc, "/* %.*f, %d */\n", *( ( BYTE * ) &( pFunc->pCode[ lPCodePos + sizeof( double ) ] ) ), - *( ( double * ) &( pFunc->pCode[ lPCodePos ] ) ) ); + *( ( double * ) &( pFunc->pCode[ lPCodePos ] ) ), + *( ( BYTE * ) &( pFunc->pCode[ lPCodePos + sizeof( double ) ] ) ) ); lPCodePos += sizeof( double ) + sizeof( BYTE ); } break;