Mercurial > hg > octave-lojdl > gnulib-hg
changeset 8548:7794b324d462
Avoid test failures on IRIX MIPS.
author | Bruno Haible <bruno@clisp.org> |
---|---|
date | Sun, 25 Mar 2007 21:46:38 +0000 |
parents | 658be4e4521a |
children | a1851d3b4da6 |
files | ChangeLog tests/test-frexpl.c tests/test-printf-frexpl.c |
diffstat | 3 files changed, 39 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,12 @@ +2007-03-25 Bruno Haible <bruno@clisp.org> + + Avoid test failures on IRIX 6.5. + * tests/test-frexpl.c (MIN_NORMAL_EXP): New macro. + (main): Use it. + * tests/test-printf-frexpl.c (MIN_NORMAL_EXP, MIN_SUBNORMAL_EXP): New + macros. + (main): Use them. + 2007-03-25 Bruno Haible <bruno@clisp.org> * m4/frexpl.m4 (gl_FUNC_FREXPL_WORKS): New macro.
--- a/tests/test-frexpl.c +++ b/tests/test-frexpl.c @@ -29,6 +29,15 @@ #define ASSERT(expr) if (!(expr)) abort (); +/* On MIPS IRIX machines, LDBL_MIN_EXP is -1021, but the smallest reliable + exponent for 'long double' is -964. For exponents below that, the + precision may be truncated to the precision used for 'double'. */ +#ifdef __sgi +# define MIN_NORMAL_EXP (LDBL_MIN_EXP + 57) +#else +# define MIN_NORMAL_EXP LDBL_MIN_EXP +#endif + static long double my_ldexp (long double x, int d) { @@ -97,7 +106,7 @@ ASSERT (exp == i); ASSERT (mantissa == 0.5L); } - for (i = 1, x = 1.0L; i >= LDBL_MIN_EXP; i--, x *= 0.5L) + for (i = 1, x = 1.0L; i >= MIN_NORMAL_EXP; i--, x *= 0.5L) { int exp = -9999; long double mantissa = frexpl (x, &exp); @@ -119,7 +128,7 @@ ASSERT (exp == i); ASSERT (mantissa == -0.5L); } - for (i = 1, x = -1.0L; i >= LDBL_MIN_EXP; i--, x *= 0.5L) + for (i = 1, x = -1.0L; i >= MIN_NORMAL_EXP; i--, x *= 0.5L) { int exp = -9999; long double mantissa = frexpl (x, &exp); @@ -141,7 +150,7 @@ ASSERT (exp == i); ASSERT (mantissa == 0.505L); } - for (i = 1, x = 1.01L; i >= LDBL_MIN_EXP; i--, x *= 0.5L) + for (i = 1, x = 1.01L; i >= MIN_NORMAL_EXP; i--, x *= 0.5L) { int exp = -9999; long double mantissa = frexpl (x, &exp); @@ -165,7 +174,7 @@ ASSERT (exp == i); ASSERT (mantissa == 0.866025L); } - for (i = 1, x = 1.73205L; i >= LDBL_MIN_EXP; i--, x *= 0.5L) + for (i = 1, x = 1.73205L; i >= MIN_NORMAL_EXP; i--, x *= 0.5L) { int exp = -9999; long double mantissa = frexpl (x, &exp);
--- a/tests/test-printf-frexpl.c +++ b/tests/test-printf-frexpl.c @@ -28,6 +28,17 @@ #define ASSERT(expr) if (!(expr)) abort (); +/* On MIPS IRIX machines, LDBL_MIN_EXP is -1021, but the smallest reliable + exponent for 'long double' is -964. For exponents below that, the + precision may be truncated to the precision used for 'double'. */ +#ifdef __sgi +# define MIN_NORMAL_EXP (LDBL_MIN_EXP + 57) +# define MIN_SUBNORMAL_EXP MIN_NORMAL_EXP +#else +# define MIN_NORMAL_EXP LDBL_MIN_EXP +# define MIN_SUBNORMAL_EXP (LDBL_MIN_EXP - 100) +#endif + static long double my_ldexp (long double x, int d) { @@ -54,14 +65,14 @@ ASSERT (exp == i - 1); ASSERT (mantissa == 1.0L); } - for (i = 1, x = 1.0L; i >= LDBL_MIN_EXP; i--, x *= 0.5L) + for (i = 1, x = 1.0L; i >= MIN_NORMAL_EXP; i--, x *= 0.5L) { int exp = -9999; long double mantissa = printf_frexpl (x, &exp); ASSERT (exp == i - 1); ASSERT (mantissa == 1.0L); } - for (; i >= LDBL_MIN_EXP - 100 && x > 0.0L; i--, x *= 0.5L) + for (; i >= MIN_SUBNORMAL_EXP && x > 0.0L; i--, x *= 0.5L) { int exp = -9999; long double mantissa = printf_frexpl (x, &exp); @@ -76,14 +87,14 @@ ASSERT (exp == i - 1); ASSERT (mantissa == 1.01L); } - for (i = 1, x = 1.01L; i >= LDBL_MIN_EXP; i--, x *= 0.5L) + for (i = 1, x = 1.01L; i >= MIN_NORMAL_EXP; i--, x *= 0.5L) { int exp = -9999; long double mantissa = printf_frexpl (x, &exp); ASSERT (exp == i - 1); ASSERT (mantissa == 1.01L); } - for (; i >= LDBL_MIN_EXP - 100 && x > 0.0L; i--, x *= 0.5L) + for (; i >= MIN_SUBNORMAL_EXP && x > 0.0L; i--, x *= 0.5L) { int exp = -9999; long double mantissa = printf_frexpl (x, &exp); @@ -100,14 +111,14 @@ ASSERT (exp == i - 1); ASSERT (mantissa == 1.73205L); } - for (i = 1, x = 1.73205L; i >= LDBL_MIN_EXP; i--, x *= 0.5L) + for (i = 1, x = 1.73205L; i >= MIN_NORMAL_EXP; i--, x *= 0.5L) { int exp = -9999; long double mantissa = printf_frexpl (x, &exp); ASSERT (exp == i - 1); ASSERT (mantissa == 1.73205L); } - for (; i >= LDBL_MIN_EXP - 100 && x > 0.0L; i--, x *= 0.5L) + for (; i >= MIN_SUBNORMAL_EXP && x > 0.0L; i--, x *= 0.5L) { int exp = -9999; long double mantissa = printf_frexpl (x, &exp);