diff options
author | Bruno Haible <bruno@clisp.org> | 2007-06-16 22:54:40 +0000 |
---|---|---|
committer | Bruno Haible <bruno@clisp.org> | 2007-06-16 22:54:40 +0000 |
commit | 6cba49006a6f8ccc4b63a67c907c0203244d8a54 (patch) | |
tree | dd046c0f4a8795cc83e4972842b9108908306516 /m4 | |
parent | 20b5ea915e5041b7d27d6d4fea6fc34a1d89dc45 (diff) | |
download | gnulib-6cba49006a6f8ccc4b63a67c907c0203244d8a54.tar.gz |
Work around a buggy frexpl function on MacOS X 10.4/PowerPC.
Diffstat (limited to 'm4')
-rw-r--r-- | m4/frexpl.m4 | 24 |
1 files changed, 18 insertions, 6 deletions
diff --git a/m4/frexpl.m4 b/m4/frexpl.m4 index e3bb1d0d35..01cb1d9ed9 100644 --- a/m4/frexpl.m4 +++ b/m4/frexpl.m4 @@ -1,4 +1,4 @@ -# frexpl.m4 serial 5 +# frexpl.m4 serial 6 dnl Copyright (C) 2007 Free Software Foundation, Inc. dnl This file is free software; the Free Software Foundation dnl gives unlimited permission to copy and/or distribute it, @@ -95,9 +95,9 @@ AC_DEFUN([gl_FUNC_FREXPL_NO_LIBM], fi ]) -dnl Test whether frexpl() works on finite numbers (this fails on AIX 5.1 and -dnl on BeOS) and also on infinite numbers (this fails e.g. on IRIX 6.5 and -dnl mingw). +dnl Test whether frexpl() works on finite numbers (this fails on +dnl MacOS X 10.4/PowerPC, on AIX 5.1, and on BeOS) and also on infinite numbers +dnl (this fails e.g. on IRIX 6.5 and mingw). AC_DEFUN([gl_FUNC_FREXPL_WORKS], [ AC_REQUIRE([AC_PROG_CC]) @@ -110,7 +110,7 @@ extern long double frexpl (long double, int *); int main() { volatile long double x; - /* Test on finite numbers. */ + /* Test on finite numbers that fails on AIX 5.1. */ x = 16.0L; { int exp = -9999; @@ -118,6 +118,18 @@ int main() if (exp != 5) return 1; } + /* Test on finite numbers that fails on MacOS X 10.4, because its frexpl + function returns an invalid (incorrectly normalized) value: it returns + y = { 0x3fe028f5, 0xc28f5c28, 0x3c9eb851, 0xeb851eb8 } + but the correct result is + 0.505L = { 0x3fe028f5, 0xc28f5c29, 0xbc547ae1, 0x47ae1480 } */ + x = 1.01L; + { + int exp = -9999; + long double y = frexpl (x, &exp); + if (!(exp == 1 && y == 0.505L)) + return 1; + } /* Test on large finite numbers. This fails on BeOS at i = 16322, while LDBL_MAX_EXP = 16384. In the loop end test, we test x against Infinity, rather than comparing @@ -143,7 +155,7 @@ int main() return 0; }], [gl_cv_func_frexpl_works=yes], [gl_cv_func_frexpl_works=no], [case "$host_os" in - aix* | beos* | irix* | mingw* | pw*) + aix* | beos* | darwin* | irix* | mingw* | pw*) gl_cv_func_frexpl_works="guessing no";; *) gl_cv_func_frexpl_works="guessing yes";; esac |