See ChangeLog entry 2003-04-24 14:35 UTC-0400 David G. Holm <dholm@jsd-llc.com>

This commit is contained in:
David G. Holm
2003-04-24 18:38:25 +00:00
parent 7055a8f1bc
commit 533f06f4f9
2 changed files with 8 additions and 3 deletions

View File

@@ -8,6 +8,11 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2003-04-24 14:35 UTC-0400 David G. Holm <dholm@jsd-llc.com>
* source/vm/itemapi.c
! Added non-finite test for w32/msvc, which fixes the new problem
where all double values were displayed as if they had overflowed.
2003-04-23 23:11 UTC+0100 Antonio Linares <alinares@fivetechsoft.com>
* source/rtl/tget.prg
! PICTURE "#" allows "." keystroke

View File

@@ -86,7 +86,7 @@
#if !defined(__DJGPP__)
#include <math.h> /* For log() */
#endif
#if defined(__IBMCPP__) || (__BORLANDC__ > 1040) /* Use this only above Borland C++ 3.1 */
#if defined(_MSC_VER) || defined(__IBMCPP__) || (__BORLANDC__ > 1040) /* Use this only above Borland C++ 3.1 */
#include <float.h> /* for _finite() and _isnan() */
#endif
@@ -1206,7 +1206,7 @@ char * hb_itemStr( PHB_ITEM pNumber, PHB_ITEM pWidth, PHB_ITEM pDec )
hb_mathSetHandler (fOldMathHandler);
s_bInfinityInit = TRUE;
}
#elif defined(__DJGPP__) || defined(__MINGW32__) || defined(__RSXNT__) || defined(__EMX__) || (__BORLANDC__ > 1040) /* Use this only above Borland C++ 3.1 */
#elif defined(_MSC_VER) || defined(__DJGPP__) || defined(__MINGW32__) || defined(__RSXNT__) || defined(__EMX__) || (__BORLANDC__ > 1040) /* Use this only above Borland C++ 3.1 */
/* Nothing to do here, because these platforms have a function
that returns 0 if the value is not a finite number */
#else
@@ -1233,7 +1233,7 @@ char * hb_itemStr( PHB_ITEM pNumber, PHB_ITEM pWidth, PHB_ITEM pDec )
#endif
if( pNumber->item.asDouble.length == 99
#if defined(__WATCOMC__)
#elif (__BORLANDC__ > 1040) /* Use this only above Borland C++ 3.1 */
#elif defined(_MSC_VER) || (__BORLANDC__ > 1040) /* Use this only above Borland C++ 3.1 */
|| !_finite(dNumber)
#elif defined(__DJGPP__) || defined(__MINGW32__)
|| !finite( dNumber )