diff options
| -rw-r--r-- | src/H5private.h | 3 | ||||
| -rw-r--r-- | test/dtypes.c | 10 |
2 files changed, 8 insertions, 5 deletions
diff --git a/src/H5private.h b/src/H5private.h index ac80564..c171363 100644 --- a/src/H5private.h +++ b/src/H5private.h @@ -579,6 +579,9 @@ H5_DLL void H5_bandwidth(char *buf/*out*/, double nbytes, double nseconds); #endif /* __MWERKS __ */ #define HDexp(X) exp(X) #define HDfabs(X) fabs(X) +/* use ABS() because fabsf() fabsl() are not common yet. */ +#define HDfabsf(X) ABS(X) +#define HDfabsl(X) ABS(X) #define HDfclose(F) fclose(F) /* fcntl() variable arguments */ #define HDfdopen(N,S) fdopen(N,S) diff --git a/test/dtypes.c b/test/dtypes.c index b9af7d6..41c5d19 100644 --- a/test/dtypes.c +++ b/test/dtypes.c @@ -4984,7 +4984,7 @@ test_conv_flt_1 (const char *name, hid_t src, hid_t dst) if (FLT_FLOAT==dst_type) { hw_f = (float)(*((double*)aligned)); hw = (unsigned char*)&hw_f; - underflow = fabs(*((double*)aligned)) < FLT_MIN; + underflow = HDfabs(*((double*)aligned)) < FLT_MIN; } else if (FLT_DOUBLE==dst_type) { hw_d = *((double*)aligned); hw = (unsigned char*)&hw_d; @@ -5000,11 +5000,11 @@ test_conv_flt_1 (const char *name, hid_t src, hid_t dst) if (FLT_FLOAT==dst_type) { hw_f = *((long double*)aligned); hw = (unsigned char*)&hw_f; - underflow = fabsl(*((long double*)aligned)) < FLT_MIN; + underflow = HDfabsl(*((long double*)aligned)) < FLT_MIN; } else if (FLT_DOUBLE==dst_type) { hw_d = *((long double*)aligned); hw = (unsigned char*)&hw_d; - underflow = fabsl(*((long double*)aligned)) < DBL_MIN; + underflow = HDfabsl(*((long double*)aligned)) < DBL_MIN; } else { hw_ld = *((long double*)aligned); hw = (unsigned char*)&hw_ld; @@ -5069,7 +5069,7 @@ test_conv_flt_1 (const char *name, hid_t src, hid_t dst) float x; HDmemcpy(&x, &buf[j*dst_size], sizeof(float)); if (underflow && - fabsf(x) <= FLT_MIN && fabsf(hw_f) <= FLT_MIN) + HDfabsf(x) <= FLT_MIN && HDfabsf(hw_f) <= FLT_MIN) continue; /* all underflowed, no error */ check_mant[0] = HDfrexpf(x, check_expo+0); check_mant[1] = HDfrexpf(hw_f, check_expo+1); @@ -5077,7 +5077,7 @@ test_conv_flt_1 (const char *name, hid_t src, hid_t dst) double x; HDmemcpy(&x, &buf[j*dst_size], sizeof(double)); if (underflow && - fabs(x) <= DBL_MIN && fabs(hw_d) <= DBL_MIN) + HDfabs(x) <= DBL_MIN && HDfabs(hw_d) <= DBL_MIN) continue; /* all underflowed, no error */ check_mant[0] = HDfrexp(x, check_expo+0); check_mant[1] = HDfrexp(hw_d, check_expo+1); |