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

Fix implemented fix for -0.0

Browse Source
This commit is contained in:
Antonio Linares
2003-08-29 05:03:16 +00:00
parent 8f0ad08fc5
commit 2604438487
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/source/vm/hvm.c
View File

@@ -3942,6 +3942,9 @@ void hb_vmPushDouble( double dNumber, int iDec )
HB_TRACE(HB_TR_DEBUG, ("hb_vmPushDouble(%lf, %d)", dNumber, iDec));
if( dNumber == -0.0 )
dNumber = 0.0;
pStackTopItem->type = HB_IT_DOUBLE;
pStackTopItem->item.asDouble.value = dNumber;
pStackTopItem->item.asDouble.length = ( dNumber >= 10000000000.0 || dNumber <= -1000000000.0 ) ? 20 : 10;
@@ -3971,6 +3974,9 @@ static void hb_vmPushDoubleConst( double dNumber, int iWidth, int iDec )
HB_TRACE(HB_TR_DEBUG, ("hb_vmPushDoubleConst(%lf, %d, %d)", dNumber, iWidth, iDec));
if( dNumber == -0.0 )
dNumber = 0.0;
pStackTopItem->type = HB_IT_DOUBLE;
pStackTopItem->item.asDouble.value = dNumber;