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

2008-10-27 15:24 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
* source/compiler/gencc.c
    ! Fixed -gc3 double number handling problem.
      Many thanks to Przemek for the fix.
      [TOMERGE 1.0]
This commit is contained in:
Viktor Szakats
2008-10-27 14:24:32 +00:00
parent 194f8514e9
commit 97b1d094e5
2 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -8,6 +8,12 @@
2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2008-10-27 15:24 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* source/compiler/gencc.c
! Fixed -gc3 double number handling problem.
Many thanks to Przemek for the fix.
[TOMERGE 1.0]
2008-10-27 15:18 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* source/rtl/tbrowse.prg
* source/debug/debugger.prg

5
harbour/source/compiler/gencc.c
View File

@@ -1093,7 +1093,10 @@ static HB_GENC_FUNC( hb_p_pushdouble )
* This version keeps double calculation compatible with RT FL functions
*/
fprintf( cargo->yyc, "\thb_xvmPushDouble( * ( double * ) " );
hb_compGenCString( cargo->yyc, &pFunc->pCode[ lPCodePos + 1 ], sizeof( double ) );
{
double d = HB_PCODE_MKDOUBLE( &pFunc->pCode[ lPCodePos + 1 ] );
hb_compGenCString( cargo->yyc, ( BYTE * ) &d, sizeof( double ) );
}
fprintf( cargo->yyc, ", %d, %d );\n",
pFunc->pCode[ lPCodePos + 1 + sizeof( double ) ],
pFunc->pCode[ lPCodePos + 1 + sizeof( double ) + sizeof( BYTE ) ] );