diff --git a/harbour/ChangeLog b/harbour/ChangeLog index bcb77ac09d..4fc9cf58e9 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,11 @@ 2002-12-01 23:12 UTC+0100 Foo Bar */ +2003-04-24 14:35 UTC-0400 David G. Holm + * 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 * source/rtl/tget.prg ! PICTURE "#" allows "." keystroke diff --git a/harbour/source/vm/itemapi.c b/harbour/source/vm/itemapi.c index 627fe036b8..a8c7aeff79 100644 --- a/harbour/source/vm/itemapi.c +++ b/harbour/source/vm/itemapi.c @@ -86,7 +86,7 @@ #if !defined(__DJGPP__) #include /* 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 /* 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 )