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

See ChangeLog entry 2000-01-25 16:20 GMT-5 David G. Holm <dholm@ sd-llc.com>

Browse Source
This commit is contained in:
David G. Holm
2000-01-25 21:23:18 +00:00
parent be514df00f
commit 19d4ba4d17
2 changed files with 15 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -1,3 +1,10 @@
2000-01-25 16:20 GMT-5 David G. Holm <dholm@ sd-llc.com>
* source/rtl/itemapi.c
! Don't check for infinity when checking for numeric overflow and using
a Borland C compiler, because Borland C returns 0 for log(0), which is
what is being used to set infinity.
2000-01-25 21:47 GMT+1 Antonio Linares <alinares@fivetech.com>
* source/debug/debugger.prg
* Partial support for editing variables.

10
harbour/source/rtl/itemapi.c
View File

@@ -1173,8 +1173,14 @@ char * hb_itemStr( PHB_ITEM pNumber, PHB_ITEM pWidth, PHB_ITEM pDec )
s_dInfinity = -log( 0 );
s_bInfinityInit = TRUE;
}
if( pNumber->item.asDouble.length == 99 || dNumber == s_dInfinity || dNumber == -s_dInfinity )
if( pNumber->item.asDouble.length == 99
#ifdef __BORLANDC__
/* No more checks for Borland C, which returns 0 for log( 0 ),
and is therefore unable to test for infinity */
#else
|| dNumber == s_dInfinity || dNumber == -s_dInfinity
#endif
)
/* Numeric overflow */
iBytes = iSize + 1;
else