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

2009-03-23 17:04 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/vm/itemapi.c
  * harbour/source/common/hbprintf.c
    * use isfinite() instead of finite() in MinGW builds.
      It's possible that it can resolve problems with MinGW64 builds.
This commit is contained in:
Przemyslaw Czerpak
2009-03-23 15:57:39 +00:00
parent 7ed4401319
commit fff231daa2
3 changed files with 11 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -8,6 +8,12 @@
2009-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2009-03-23 17:04 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/vm/itemapi.c
* harbour/source/common/hbprintf.c
* use isfinite() instead of finite() in MinGW builds.
It's possible that it can resolve problems with MinGW64 builds.
2009-03-23 16:06 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/pp/ppcore.c
! fixed typo in data constant values written to .ppo files

7
harbour/source/common/hbprintf.c
View File

@@ -179,7 +179,7 @@ optimized.
#endif
#if defined( __GNUC__ ) && defined( _ISOC99_SOURCE )
#if defined( __GNUC__ ) && ( defined( _ISOC99_SOURCE ) || defined(__MINGW32__) )
/* use C99 macros */
# define HB_NUMTYPE( v, d ) do { \
@@ -223,7 +223,7 @@ optimized.
# if defined(__RSXNT__) || defined(__EMX__) || \
defined(__XCC__) || defined(__POCC__) || \
defined(HB_OS_HPUX)
defined(__MINGW32__) || defined(HB_OS_HPUX)
# define hb_isfinite( d ) isfinite( d )
# elif !defined( __NO_LONGDOUBLE__ ) && defined( __BORLANDC__ )
# define hb_isfinite( d ) _finitel( d )
@@ -231,8 +231,7 @@ optimized.
# define hb_isfinite( d ) _finite( ( double ) d )
# elif defined( __BORLANDC__ ) || defined( __WATCOMC__ )
# define hb_isfinite( d ) _finite( d )
# elif defined(__GNUC__) || defined(__DJGPP__) || defined(__MINGW32__) || \
defined(__LCC__)
# elif defined(__GNUC__) || defined(__DJGPP__) || defined(__LCC__)
# define hb_isfinite( d ) finite( d )
# else
# define hb_isfinite( d ) FALSE

5
harbour/source/vm/itemapi.c
View File

@@ -2241,12 +2241,11 @@ BOOL hb_itemStrBuf( char *szResult, PHB_ITEM pNumber, int iSize, int iDec )
#if defined(__RSXNT__) || defined(__EMX__) || \
defined(__XCC__) || defined(__POCC__) || \
defined(HB_OS_HPUX)
defined(__MINGW32__) || defined(HB_OS_HPUX)
# define HB_FINITE_DBL(d) ( isfinite(d)!=0 )
#elif defined(__WATCOMC__) || defined(__BORLANDC__) || defined(_MSC_VER)
# define HB_FINITE_DBL(d) ( _finite(d)!=0 )
#elif defined(__GNUC__) || defined(__DJGPP__) || defined(__MINGW32__) || \
defined(__LCC__)
#elif defined(__GNUC__) || defined(__DJGPP__) || defined(__LCC__)
# define HB_FINITE_DBL(d) ( finite(d)!=0 )
#else
/* added infinity check for Borland C [martin vogel] */