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

2009-01-28 17:41 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/common/hbprintf.c
    ! do not use _fpclass() in BCC builds - it breaks FL arithmetic
    * use _finitel() instead of _finite() in MSVC builds
This commit is contained in:
Przemyslaw Czerpak
2009-01-28 16:37:31 +00:00
parent 61c3e1dbb5
commit 1a19cdcb82
2 changed files with 15 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -8,6 +8,11 @@
2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2009-01-28 17:41 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/common/hbprintf.c
! do not use _fpclass() in BCC builds - it breaks FL arithmetic
* use _finitel() instead of _finite() in MSVC builds
2009-01-28 14:25 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/common/hbprintf.c
! include float.h in MSVC builds

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

@@ -129,8 +129,11 @@ HB_EXTERN_END
#define _HB_NUM_PINF 2
#define _HB_NUM_NINF 4
#if defined( __BORLANDC__ )
/* use Borland C _fpclass[l]() function */
#if defined( __BORLANDC__ ) && 0
/* do not use Borland C _fpclass[l]() function.
* it switches internal logic used for floating point calculation
* in this compiler reducing the precision to 'float' type.
*/
# ifdef __NO_LONGDOUBLE__
# define hb_fpclassify( d ) _fpclass( d )
# else
@@ -161,7 +164,7 @@ HB_EXTERN_END
/* use C99 macros */
# define hb_signbit( d ) signbit( d )
#elif defined( __BORLANDC__ )
#elif defined( __BORLANDC__ ) && defined( hb_fpclassify )
# define hb_signbit( d ) ( ( hb_fpclassify( d ) & ( _FPCLASS_NINF | _FPCLASS_NZ ) ) != 0 )
@@ -204,7 +207,7 @@ HB_EXTERN_END
} while( 0 )
# endif
#elif defined( __BORLANDC__ )
#elif defined( __BORLANDC__ ) && defined( hb_fpclassify )
# define HB_NUMTYPE( v, d ) do { \
int t = hb_fpclassify( d ); \
@@ -219,6 +222,9 @@ HB_EXTERN_END
defined(__XCC__) || defined(__POCC__) || \
defined(HB_OS_HPUX)
# define hb_isfinite( d ) isfinite( d )
# elif !defined( __NO_LONGDOUBLE__ ) && \
( defined( __BORLANDC__ ) || defined( _MSC_VER ) )
# define hb_isfinite( d ) _finitel( d )
# elif defined( __BORLANDC__ ) || defined( __WATCOMC__ ) || defined( _MSC_VER )
# define hb_isfinite( d ) _finite( d )
# elif defined(__GNUC__) || defined(__DJGPP__) || defined(__MINGW32__) || \