Mercurial > hg > octave-lojdl > gnulib-hg
changeset 13834:108bbfd6f03b
frexp, tests: work around ICC bug with -zero
* m4/frexp.m4 (gl_FUNC_FREXP_WORKS): Compute -0.0 in a way that
works with more compilers.
* tests/minus-zero.h: New file.
* modules/ceilf-tests (Files): Include it.
* modules/ceill-tests (Files): Likewise.
* modules/floorf-tests (Files): Likewise.
* modules/floorl-tests (Files): Likewise.
* modules/frexp-nolibm-tests (Files): Likewise.
* modules/frexp-tests (Files): Likewise.
* modules/frexpl-nolibm-tests (Files): Likewise.
* modules/frexpl-tests (Files): Likewise.
* modules/isnan-tests (Files): Likewise.
* modules/isnand-nolibm-tests (Files): Likewise.
* modules/isnand-tests (Files): Likewise.
* modules/isnanf-nolibm-tests (Files): Likewise.
* modules/isnanf-tests (Files): Likewise.
* modules/isnanl-nolibm-tests (Files): Likewise.
* modules/isnanl-tests (Files): Likewise.
* modules/round-tests (Files): Likewise.
* modules/roundf-tests (Files): Likewise.
* modules/roundl-tests (Files): Likewise.
* modules/ldexpl-tests (Files): Likewise.
* modules/signbit-tests (Files): Likewise.
* modules/snprintf-posix-tests (Files): Likewise.
* modules/sprintf-posix-tests (Files): Likewise.
* modules/strtod-tests (Files): Likewise.
* modules/trunc-tests (Files): Likewise.
* modules/truncf-tests (Files): Likewise.
* modules/truncl-tests (Files): Likewise.
* modules/vsnprintf-posix-tests (Files): Likewise.
* modules/vsprintf-posix-tests (Files): Likewise.
* modules/vasnprintf-posix-tests (Files): Likewise.
* modules/vasprintf-posix-tests (Files): Likewise.
* tests/test-ceilf1.c (main): Use it.
* tests/test-ceill.c (main): Likewise.
* tests/test-floorf1.c (main): Likewise.
* tests/test-floorl.c (main): Likewise.
* tests/test-frexp.c (main): Likewise.
* tests/test-frexpl.c (main): Likewise.
* tests/test-isnan.c (main): Likewise.
* tests/test-isnand.h (main): Likewise.
* tests/test-isnanf.h (main): Likewise.
* tests/test-isnanl.h (main): Likewise.
* tests/test-ldexpl.c (main): Likewise.
* tests/test-round.c (main): Likewise.
* tests/test-roundf.c (main): Likewise.
* tests/test-roundl.c (main): Likewise.
* tests/test-signbit.c (test_signbitf, test_signbitd)
(test_signbitl): Likewise.
* tests/test-snprintf-posix.h (test_function): Likewise.
* tests/test-sprintf-posix.h (test_function): Likewise.
* tests/test-strtod.c (main): Likewise.
* tests/test-trunc1.c (main): Likewise.
* tests/test-truncf1.c (main): Likewise.
* tests/test-truncl.c (main): Likewise.
Signed-off-by: Eric Blake <eblake@redhat.com>
line wrap: on
line diff
--- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,62 @@ 2010-11-04 Eric Blake <eblake@redhat.com> + frexp, tests: work around ICC bug with -zero + * m4/frexp.m4 (gl_FUNC_FREXP_WORKS): Compute -0.0 in a way that + works with more compilers. + * tests/minus-zero.h: New file. + * modules/ceilf-tests (Files): Include it. + * modules/ceill-tests (Files): Likewise. + * modules/floorf-tests (Files): Likewise. + * modules/floorl-tests (Files): Likewise. + * modules/frexp-nolibm-tests (Files): Likewise. + * modules/frexp-tests (Files): Likewise. + * modules/frexpl-nolibm-tests (Files): Likewise. + * modules/frexpl-tests (Files): Likewise. + * modules/isnan-tests (Files): Likewise. + * modules/isnand-nolibm-tests (Files): Likewise. + * modules/isnand-tests (Files): Likewise. + * modules/isnanf-nolibm-tests (Files): Likewise. + * modules/isnanf-tests (Files): Likewise. + * modules/isnanl-nolibm-tests (Files): Likewise. + * modules/isnanl-tests (Files): Likewise. + * modules/round-tests (Files): Likewise. + * modules/roundf-tests (Files): Likewise. + * modules/roundl-tests (Files): Likewise. + * modules/ldexpl-tests (Files): Likewise. + * modules/signbit-tests (Files): Likewise. + * modules/snprintf-posix-tests (Files): Likewise. + * modules/sprintf-posix-tests (Files): Likewise. + * modules/strtod-tests (Files): Likewise. + * modules/trunc-tests (Files): Likewise. + * modules/truncf-tests (Files): Likewise. + * modules/truncl-tests (Files): Likewise. + * modules/vsnprintf-posix-tests (Files): Likewise. + * modules/vsprintf-posix-tests (Files): Likewise. + * modules/vasnprintf-posix-tests (Files): Likewise. + * modules/vasprintf-posix-tests (Files): Likewise. + * tests/test-ceilf1.c (main): Use it. + * tests/test-ceill.c (main): Likewise. + * tests/test-floorf1.c (main): Likewise. + * tests/test-floorl.c (main): Likewise. + * tests/test-frexp.c (main): Likewise. + * tests/test-frexpl.c (main): Likewise. + * tests/test-isnan.c (main): Likewise. + * tests/test-isnand.h (main): Likewise. + * tests/test-isnanf.h (main): Likewise. + * tests/test-isnanl.h (main): Likewise. + * tests/test-ldexpl.c (main): Likewise. + * tests/test-round.c (main): Likewise. + * tests/test-roundf.c (main): Likewise. + * tests/test-roundl.c (main): Likewise. + * tests/test-signbit.c (test_signbitf, test_signbitd) + (test_signbitl): Likewise. + * tests/test-snprintf-posix.h (test_function): Likewise. + * tests/test-sprintf-posix.h (test_function): Likewise. + * tests/test-strtod.c (main): Likewise. + * tests/test-trunc1.c (main): Likewise. + * tests/test-truncf1.c (main): Likewise. + * tests/test-truncl.c (main): Likewise. + isnanl: work around icc bug * lib/isnan.c (FUNC): Compute run-time NaN under ICC as well.
--- a/m4/frexp.m4 +++ b/m4/frexp.m4 @@ -104,12 +104,24 @@ #include <float.h> #include <math.h> #include <string.h> +/* HP cc on HP-UX 10.20 has a bug with the constant expression -0.0. + ICC 10.0 has a bug when optimizing the expression -zero. + The expression -DBL_MIN * DBL_MIN does not work when cross-compiling + to PowerPC on MacOS X 10.5. */ +#if defined __hpux || defined __sgi || defined __ICC +static double +compute_minus_zero (void) +{ + return -DBL_MIN * DBL_MIN; +} +# define minus_zero compute_minus_zero () +#else +double minus_zero = -0.0; +#endif int main() { int i; volatile double x; -/* HP cc on HP-UX 10.20 has a bug with the constant expression -0.0. - So we use -zero instead. */ double zero = 0.0; /* Test on denormalized numbers. */ for (i = 1, x = 1.0; i >= DBL_MIN_EXP; i--, x *= 0.5) @@ -132,7 +144,7 @@ return 1; } /* Test on negative zero. */ - x = -zero; + x = minus_zero; { int exp; double y = frexp (x, &exp);
--- a/modules/ceilf-tests +++ b/modules/ceilf-tests @@ -1,6 +1,7 @@ Files: tests/test-ceilf1.c tests/test-ceilf2.c +tests/minus-zero.h tests/nan.h tests/signature.h tests/macros.h
--- a/modules/ceill-tests +++ b/modules/ceill-tests @@ -1,5 +1,6 @@ Files: tests/test-ceill.c +tests/minus-zero.h tests/nan.h tests/signature.h tests/macros.h
--- a/modules/floorf-tests +++ b/modules/floorf-tests @@ -1,6 +1,7 @@ Files: tests/test-floorf1.c tests/test-floorf2.c +tests/minus-zero.h tests/nan.h tests/signature.h tests/macros.h
--- a/modules/floorl-tests +++ b/modules/floorl-tests @@ -1,5 +1,6 @@ Files: tests/test-floorl.c +tests/minus-zero.h tests/nan.h tests/signature.h tests/macros.h
--- a/modules/frexp-nolibm-tests +++ b/modules/frexp-nolibm-tests @@ -1,5 +1,7 @@ Files: tests/test-frexp.c +tests/minus-zero.h +tests/nan.h tests/signature.h tests/macros.h
--- a/modules/frexp-tests +++ b/modules/frexp-tests @@ -1,5 +1,6 @@ Files: tests/test-frexp.c +tests/minus-zero.h tests/nan.h tests/signature.h tests/macros.h
--- a/modules/frexpl-nolibm-tests +++ b/modules/frexpl-nolibm-tests @@ -1,5 +1,7 @@ Files: tests/test-frexpl.c +tests/minus-zero.h +tests/nan.h tests/signature.h tests/macros.h
--- a/modules/frexpl-tests +++ b/modules/frexpl-tests @@ -1,5 +1,6 @@ Files: tests/test-frexpl.c +tests/minus-zero.h tests/nan.h tests/signature.h tests/macros.h
--- a/modules/isnan-tests +++ b/modules/isnan-tests @@ -1,5 +1,6 @@ Files: tests/test-isnan.c +tests/minus-zero.h tests/nan.h tests/macros.h
--- a/modules/isnand-nolibm-tests +++ b/modules/isnand-nolibm-tests @@ -1,6 +1,7 @@ Files: tests/test-isnand-nolibm.c tests/test-isnand.h +tests/minus-zero.h tests/nan.h tests/macros.h
--- a/modules/isnand-tests +++ b/modules/isnand-tests @@ -1,6 +1,7 @@ Files: tests/test-isnand.c tests/test-isnand.h +tests/minus-zero.h tests/nan.h tests/macros.h
--- a/modules/isnanf-nolibm-tests +++ b/modules/isnanf-nolibm-tests @@ -1,6 +1,7 @@ Files: tests/test-isnanf-nolibm.c tests/test-isnanf.h +tests/minus-zero.h tests/nan.h tests/macros.h
--- a/modules/isnanf-tests +++ b/modules/isnanf-tests @@ -1,6 +1,7 @@ Files: tests/test-isnanf.c tests/test-isnanf.h +tests/minus-zero.h tests/nan.h tests/macros.h
--- a/modules/isnanl-nolibm-tests +++ b/modules/isnanl-nolibm-tests @@ -1,6 +1,7 @@ Files: tests/test-isnanl-nolibm.c tests/test-isnanl.h +tests/minus-zero.h tests/nan.h tests/macros.h
--- a/modules/isnanl-tests +++ b/modules/isnanl-tests @@ -1,6 +1,7 @@ Files: tests/test-isnanl.c tests/test-isnanl.h +tests/minus-zero.h tests/nan.h tests/macros.h
--- a/modules/ldexpl-tests +++ b/modules/ldexpl-tests @@ -1,5 +1,6 @@ Files: tests/test-ldexpl.c +tests/minus-zero.h tests/nan.h tests/signature.h tests/macros.h
--- a/modules/round-tests +++ b/modules/round-tests @@ -1,6 +1,7 @@ Files: tests/test-round1.c tests/test-round2.c +tests/minus-zero.h tests/nan.h tests/signature.h tests/macros.h
--- a/modules/roundf-tests +++ b/modules/roundf-tests @@ -2,6 +2,7 @@ tests/test-roundf1.c tests/test-round2.c tests/test-roundf2.c +tests/minus-zero.h tests/nan.h tests/signature.h tests/macros.h
--- a/modules/roundl-tests +++ b/modules/roundl-tests @@ -1,5 +1,6 @@ Files: tests/test-roundl.c +tests/minus-zero.h tests/nan.h tests/signature.h tests/macros.h
--- a/modules/signbit-tests +++ b/modules/signbit-tests @@ -1,5 +1,6 @@ Files: tests/test-signbit.c +tests/minus-zero.h tests/macros.h m4/exponentf.m4 m4/exponentd.m4
--- a/modules/snprintf-posix-tests +++ b/modules/snprintf-posix-tests @@ -2,6 +2,7 @@ tests/test-snprintf-posix.c tests/test-snprintf-posix.h tests/test-snprintf.c +tests/minus-zero.h tests/nan.h tests/signature.h tests/macros.h
--- a/modules/sprintf-posix-tests +++ b/modules/sprintf-posix-tests @@ -1,6 +1,7 @@ Files: tests/test-sprintf-posix.c tests/test-sprintf-posix.h +tests/minus-zero.h tests/nan.h tests/signature.h tests/macros.h
--- a/modules/strtod-tests +++ b/modules/strtod-tests @@ -1,6 +1,7 @@ Files: tests/test-strtod.c tests/signature.h +tests/minus-zero.h tests/macros.h Depends-on:
--- a/modules/trunc-tests +++ b/modules/trunc-tests @@ -1,6 +1,7 @@ Files: tests/test-trunc1.c tests/test-trunc2.c +tests/minus-zero.h tests/nan.h tests/signature.h tests/macros.h
--- a/modules/truncf-tests +++ b/modules/truncf-tests @@ -1,6 +1,7 @@ Files: tests/test-truncf1.c tests/test-truncf2.c +tests/minus-zero.h tests/nan.h tests/signature.h tests/macros.h
--- a/modules/truncl-tests +++ b/modules/truncl-tests @@ -1,5 +1,6 @@ Files: tests/test-truncl.c +tests/minus-zero.h tests/nan.h tests/signature.h tests/macros.h
--- a/modules/vasnprintf-posix-tests +++ b/modules/vasnprintf-posix-tests @@ -2,6 +2,7 @@ tests/test-vasnprintf-posix.c tests/test-vasnprintf-posix2.sh tests/test-vasnprintf-posix2.c +tests/minus-zero.h tests/nan.h tests/macros.h m4/locale-fr.m4
--- a/modules/vasprintf-posix-tests +++ b/modules/vasprintf-posix-tests @@ -1,5 +1,6 @@ Files: tests/test-vasprintf-posix.c +tests/minus-zero.h tests/nan.h tests/macros.h
--- a/modules/vsnprintf-posix-tests +++ b/modules/vsnprintf-posix-tests @@ -2,6 +2,7 @@ tests/test-vsnprintf-posix.c tests/test-snprintf-posix.h tests/test-vsnprintf.c +tests/minus-zero.h tests/nan.h tests/signature.h tests/macros.h
--- a/modules/vsprintf-posix-tests +++ b/modules/vsprintf-posix-tests @@ -1,6 +1,7 @@ Files: tests/test-vsprintf-posix.c tests/test-sprintf-posix.h +tests/minus-zero.h tests/nan.h tests/signature.h tests/macros.h
new file mode 100644 --- /dev/null +++ b/tests/minus-zero.h @@ -0,0 +1,70 @@ +/* Macros for floating-point negative zero. + Copyright (C) 2010 Free Software Foundation, Inc. + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 3 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see <http://www.gnu.org/licenses/>. */ + +#include <float.h> + +/* minus_zerof represents the value -0.0f. */ + +/* HP cc on HP-UX 10.20 has a bug with the constant expression -0.0f. + ICC 10.0 has a bug when optimizing the expression -zero. + The expression -FLT_MIN * FLT_MIN does not work when cross-compiling + to PowerPC on MacOS X 10.5. */ +#if defined __hpux || defined __sgi || defined __ICC +static float +compute_minus_zerof (void) +{ + return -FLT_MIN * FLT_MIN; +} +# define minus_zerof compute_minus_zerof () +#else +float minus_zerof = -0.0f; +#endif + + +/* minus_zerod represents the value -0.0. */ + +/* HP cc on HP-UX 10.20 has a bug with the constant expression -0.0. + ICC 10.0 has a bug when optimizing the expression -zero. + The expression -DBL_MIN * DBL_MIN does not work when cross-compiling + to PowerPC on MacOS X 10.5. */ +#if defined __hpux || defined __sgi || defined __ICC +static double +compute_minus_zerod (void) +{ + return -DBL_MIN * DBL_MIN; +} +# define minus_zerod compute_minus_zerod () +#else +double minus_zerod = -0.0; +#endif + +/* minus_zerol represents the value -0.0L. */ + +/* HP cc on HP-UX 10.20 has a bug with the constant expression -0.0L. + IRIX cc can't put -0.0L into .data, but can compute at runtime. + ICC 10.0 has a bug when optimizing the expression -zero. + The expression -LDBL_MIN * LDBL_MIN does not work when cross-compiling + to PowerPC on MacOS X 10.5. */ +#if defined __hpux || defined __sgi || defined __ICC +static long double +compute_minus_zerol (void) +{ + return -LDBL_MIN * LDBL_MIN; +} +# define minus_zerol compute_minus_zerol () +#else +long double minus_zerol = -0.0L; +#endif
--- a/tests/test-ceilf1.c +++ b/tests/test-ceilf1.c @@ -24,19 +24,16 @@ SIGNATURE_CHECK (ceilf, float, (float)); #include "isnanf-nolibm.h" +#include "minus-zero.h" #include "nan.h" #include "macros.h" -/* HP cc on HP-UX 10.20 has a bug with the constant expression -0.0f. - So we use -zero instead. */ -float zero = 0.0f; - int main () { /* Zero. */ ASSERT (ceilf (0.0f) == 0.0f); - ASSERT (ceilf (-zero) == 0.0f); + ASSERT (ceilf (minus_zerof) == 0.0f); /* Positive numbers. */ ASSERT (ceilf (0.3f) == 1.0f); ASSERT (ceilf (0.7f) == 1.0f);
--- a/tests/test-ceill.c +++ b/tests/test-ceill.c @@ -27,25 +27,10 @@ #include "fpucw.h" #include "isnanl-nolibm.h" +#include "minus-zero.h" #include "nan.h" #include "macros.h" -/* On HP-UX 10.20, negating 0.0L does not yield -0.0L. - So we use minus_zero instead. - IRIX cc can't put -0.0L into .data, but can compute at runtime. - Note that the expression -LDBL_MIN * LDBL_MIN does not work on other - platforms, such as when cross-compiling to PowerPC on MacOS X 10.5. */ -#if defined __hpux || defined __sgi -static long double -compute_minus_zero (void) -{ - return -LDBL_MIN * LDBL_MIN; -} -# define minus_zero compute_minus_zero () -#else -long double minus_zero = -0.0L; -#endif - int main () { @@ -55,7 +40,7 @@ /* Zero. */ ASSERT (ceill (0.0L) == 0.0L); - ASSERT (ceill (minus_zero) == 0.0L); + ASSERT (ceill (minus_zerol) == 0.0L); /* Positive numbers. */ ASSERT (ceill (0.3L) == 1.0L); ASSERT (ceill (0.7L) == 1.0L);
--- a/tests/test-floorf1.c +++ b/tests/test-floorf1.c @@ -24,19 +24,16 @@ SIGNATURE_CHECK (floorf, float, (float)); #include "isnanf-nolibm.h" +#include "minus-zero.h" #include "nan.h" #include "macros.h" -/* HP cc on HP-UX 10.20 has a bug with the constant expression -0.0f. - So we use -zero instead. */ -float zero = 0.0f; - int main () { /* Zero. */ ASSERT (floorf (0.0f) == 0.0f); - ASSERT (floorf (-zero) == 0.0f); + ASSERT (floorf (minus_zerof) == 0.0f); /* Positive numbers. */ ASSERT (floorf (0.3f) == 0.0f); ASSERT (floorf (0.7f) == 0.0f);
--- a/tests/test-floorl.c +++ b/tests/test-floorl.c @@ -27,25 +27,10 @@ #include "fpucw.h" #include "isnanl-nolibm.h" +#include "minus-zero.h" #include "nan.h" #include "macros.h" -/* On HP-UX 10.20, negating 0.0L does not yield -0.0L. - So we use minus_zero instead. - IRIX cc can't put -0.0L into .data, but can compute at runtime. - Note that the expression -LDBL_MIN * LDBL_MIN does not work on other - platforms, such as when cross-compiling to PowerPC on MacOS X 10.5. */ -#if defined __hpux || defined __sgi -static long double -compute_minus_zero (void) -{ - return -LDBL_MIN * LDBL_MIN; -} -# define minus_zero compute_minus_zero () -#else -long double minus_zero = -0.0L; -#endif - int main () { @@ -55,7 +40,7 @@ /* Zero. */ ASSERT (floorl (0.0L) == 0.0L); - ASSERT (floorl (minus_zero) == 0.0L); + ASSERT (floorl (minus_zerol) == 0.0L); /* Positive numbers. */ ASSERT (floorl (0.3L) == 0.0L); ASSERT (floorl (0.7L) == 0.0L);
--- a/tests/test-frexp.c +++ b/tests/test-frexp.c @@ -26,6 +26,7 @@ #include <float.h> #include "isnand-nolibm.h" +#include "minus-zero.h" #include "nan.h" #include "macros.h" @@ -34,10 +35,6 @@ #undef exp #define exp exponent -/* HP cc on HP-UX 10.20 has a bug with the constant expression -0.0. - So we use -zero instead. */ -double zero = 0.0; - static double my_ldexp (double x, int d) { @@ -96,7 +93,7 @@ { /* Negative zero. */ int exp = -9999; double mantissa; - x = -zero; + x = minus_zerod; mantissa = frexp (x, &exp); ASSERT (exp == 0); ASSERT (mantissa == x);
--- a/tests/test-frexpl.c +++ b/tests/test-frexpl.c @@ -27,6 +27,7 @@ #include "fpucw.h" #include "isnanl-nolibm.h" +#include "minus-zero.h" #include "nan.h" #include "macros.h" @@ -48,22 +49,6 @@ # define MIN_NORMAL_EXP LDBL_MIN_EXP #endif -/* On HP-UX 10.20, negating 0.0L does not yield -0.0L. - So we use minus_zero instead. - IRIX cc can't put -0.0L into .data, but can compute at runtime. - Note that the expression -LDBL_MIN * LDBL_MIN does not work on other - platforms, such as when cross-compiling to PowerPC on MacOS X 10.5. */ -#if defined __hpux || defined __sgi -static long double -compute_minus_zero (void) -{ - return -LDBL_MIN * LDBL_MIN; -} -# define minus_zero compute_minus_zero () -#else -long double minus_zero = -0.0L; -#endif - static long double my_ldexp (long double x, int d) { @@ -120,7 +105,7 @@ { /* Negative zero. */ int exp = -9999; long double mantissa; - x = minus_zero; + x = minus_zerol; mantissa = frexpl (x, &exp); ASSERT (exp == 0); ASSERT (mantissa == x);
--- a/tests/test-isnan.c +++ b/tests/test-isnan.c @@ -29,33 +29,10 @@ #include <float.h> #include <limits.h> +#include "minus-zero.h" #include "nan.h" #include "macros.h" -/* HP cc on HP-UX 10.20 has a bug with the constant expression -0.0f. - So we use -zero instead. */ -float zerof = 0.0f; - -/* HP cc on HP-UX 10.20 has a bug with the constant expression -0.0. - So we use -zero instead. */ -double zerod = 0.0; - -/* On HP-UX 10.20, negating 0.0L does not yield -0.0L. - So we use minus_zerol instead. - IRIX cc can't put -0.0L into .data, but can compute at runtime. - Note that the expression -LDBL_MIN * LDBL_MIN does not work on other - platforms, such as when cross-compiling to PowerPC on MacOS X 10.5. */ -#if defined __hpux || defined __sgi -static long double -compute_minus_zerol (void) -{ - return -LDBL_MIN * LDBL_MIN; -} -# define minus_zerol compute_minus_zerol () -#else -long double minus_zerol = -0.0L; -#endif - static void test_float (void) { @@ -67,7 +44,7 @@ ASSERT (!isnan (-2.718e30f)); ASSERT (!isnan (-2.718e-30f)); ASSERT (!isnan (0.0f)); - ASSERT (!isnan (-zerof)); + ASSERT (!isnan (minus_zerof)); /* Infinite values. */ ASSERT (!isnan (1.0f / 0.0f)); ASSERT (!isnan (-1.0f / 0.0f)); @@ -107,7 +84,7 @@ ASSERT (!isnan (-2.718e30)); ASSERT (!isnan (-2.718e-30)); ASSERT (!isnan (0.0)); - ASSERT (!isnan (-zerod)); + ASSERT (!isnan (minus_zerod)); /* Infinite values. */ ASSERT (!isnan (1.0 / 0.0)); ASSERT (!isnan (-1.0 / 0.0));
--- a/tests/test-isnand.h +++ b/tests/test-isnand.h @@ -18,13 +18,10 @@ #include <limits.h> +#include "minus-zero.h" #include "nan.h" #include "macros.h" -/* HP cc on HP-UX 10.20 has a bug with the constant expression -0.0. - So we use -zero instead. */ -double zero = 0.0; - int main () { @@ -36,7 +33,7 @@ ASSERT (!isnand (-2.718e30)); ASSERT (!isnand (-2.718e-30)); ASSERT (!isnand (0.0)); - ASSERT (!isnand (-zero)); + ASSERT (!isnand (minus_zerod)); /* Infinite values. */ ASSERT (!isnand (1.0 / 0.0)); ASSERT (!isnand (-1.0 / 0.0));
--- a/tests/test-isnanf.h +++ b/tests/test-isnanf.h @@ -18,13 +18,10 @@ #include <limits.h> +#include "minus-zero.h" #include "nan.h" #include "macros.h" -/* HP cc on HP-UX 10.20 has a bug with the constant expression -0.0f. - So we use -zero instead. */ -float zero = 0.0f; - int main () { @@ -36,7 +33,7 @@ ASSERT (!isnanf (-2.718e30f)); ASSERT (!isnanf (-2.718e-30f)); ASSERT (!isnanf (0.0f)); - ASSERT (!isnanf (-zero)); + ASSERT (!isnanf (minus_zerof)); /* Infinite values. */ ASSERT (!isnanf (1.0f / 0.0f)); ASSERT (!isnanf (-1.0f / 0.0f));
--- a/tests/test-isnanl.h +++ b/tests/test-isnanl.h @@ -19,25 +19,10 @@ #include <float.h> #include <limits.h> +#include "minus-zero.h" #include "nan.h" #include "macros.h" -/* On HP-UX 10.20, negating 0.0L does not yield -0.0L. - So we use minus_zero instead. - IRIX cc can't put -0.0L into .data, but can compute at runtime. - Note that the expression -LDBL_MIN * LDBL_MIN does not work on other - platforms, such as when cross-compiling to PowerPC on MacOS X 10.5. */ -#if defined __hpux || defined __sgi -static long double -compute_minus_zero (void) -{ - return -LDBL_MIN * LDBL_MIN; -} -# define minus_zero compute_minus_zero () -#else -long double minus_zero = -0.0L; -#endif - int main () { @@ -54,7 +39,7 @@ ASSERT (!isnanl (-2.718e30L)); ASSERT (!isnanl (-2.718e-30L)); ASSERT (!isnanl (0.0L)); - ASSERT (!isnanl (minus_zero)); + ASSERT (!isnanl (minus_zerol)); /* Infinite values. */ ASSERT (!isnanl (1.0L / 0.0L)); ASSERT (!isnanl (-1.0L / 0.0L));
--- a/tests/test-ldexpl.c +++ b/tests/test-ldexpl.c @@ -27,25 +27,10 @@ #include "fpucw.h" #include "isnanl-nolibm.h" +#include "minus-zero.h" #include "nan.h" #include "macros.h" -/* On HP-UX 10.20, negating 0.0L does not yield -0.0L. - So we use minus_zero instead. - IRIX cc can't put -0.0L into .data, but can compute at runtime. - Note that the expression -LDBL_MIN * LDBL_MIN does not work on other - platforms, such as when cross-compiling to PowerPC on MacOS X 10.5. */ -#if defined __hpux || defined __sgi -static long double -compute_minus_zero (void) -{ - return -LDBL_MIN * LDBL_MIN; -} -# define minus_zero compute_minus_zero () -#else -long double minus_zero = -0.0L; -#endif - int main () { @@ -85,7 +70,7 @@ } { /* Negative zero. */ - x = minus_zero; + x = minus_zerol; y = ldexpl (x, 0); ASSERT (y == x); ASSERT (signbit (x)); y = ldexpl (x, 5); ASSERT (y == x); ASSERT (signbit (x)); y = ldexpl (x, -5); ASSERT (y == x); ASSERT (signbit (x));
--- a/tests/test-round1.c +++ b/tests/test-round1.c @@ -26,19 +26,16 @@ SIGNATURE_CHECK (round, double, (double)); #include "isnand-nolibm.h" +#include "minus-zero.h" #include "nan.h" #include "macros.h" -/* HP cc on HP-UX 10.20 has a bug with the constant expression -0.0. - So we use -zero instead. */ -double zero = 0.0; - int main () { /* Zero. */ ASSERT (round (0.0) == 0.0); - ASSERT (round (-zero) == 0.0); + ASSERT (round (minus_zerod) == 0.0); /* Positive numbers. */ ASSERT (round (0.3) == 0.0); ASSERT (round (0.5) == 1.0);
--- a/tests/test-roundf1.c +++ b/tests/test-roundf1.c @@ -26,19 +26,16 @@ SIGNATURE_CHECK (roundf, float, (float)); #include "isnanf-nolibm.h" +#include "minus-zero.h" #include "nan.h" #include "macros.h" -/* HP cc on HP-UX 10.20 has a bug with the constant expression -0.0f. - So we use -zero instead. */ -float zero = 0.0f; - int main () { /* Zero. */ ASSERT (roundf (0.0f) == 0.0f); - ASSERT (roundf (-zero) == 0.0f); + ASSERT (roundf (minus_zerof) == 0.0f); /* Positive numbers. */ ASSERT (roundf (0.3f) == 0.0f); ASSERT (roundf (0.5f) == 1.0f);
--- a/tests/test-roundl.c +++ b/tests/test-roundl.c @@ -29,25 +29,10 @@ #include "fpucw.h" #include "isnanl-nolibm.h" +#include "minus-zero.h" #include "nan.h" #include "macros.h" -/* On HP-UX 10.20, negating 0.0L does not yield -0.0L. - So we use minus_zero instead. - IRIX cc can't put -0.0L into .data, but can compute at runtime. - Note that the expression -LDBL_MIN * LDBL_MIN does not work on other - platforms, such as when cross-compiling to PowerPC on MacOS X 10.5. */ -#if defined __hpux || defined __sgi -static long double -compute_minus_zero (void) -{ - return -LDBL_MIN * LDBL_MIN; -} -# define minus_zero compute_minus_zero () -#else -long double minus_zero = -0.0L; -#endif - int main () { @@ -57,7 +42,7 @@ /* Zero. */ ASSERT (roundl (0.0L) == 0.0L); - ASSERT (roundl (minus_zero) == 0.0L); + ASSERT (roundl (minus_zerol) == 0.0L); /* Positive numbers. */ ASSERT (roundl (0.3L) == 0.0L); ASSERT (roundl (0.5L) == 1.0L);
--- a/tests/test-signbit.c +++ b/tests/test-signbit.c @@ -28,34 +28,13 @@ #include <float.h> #include <limits.h> +#include "minus-zero.h" #include "macros.h" float zerof = 0.0f; double zerod = 0.0; long double zerol = 0.0L; -/* HP cc on HP-UX 10.20 has a bug with the constant expression -0.0f. - So we use -zerof instead. */ - -/* HP cc on HP-UX 10.20 has a bug with the constant expression -0.0. - So we use -zerod instead. */ - -/* On HP-UX 10.20, negating 0.0L does not yield -0.0L. - So we use minus_zerol instead. - IRIX cc can't put -0.0L into .data, but can compute at runtime. - Note that the expression -LDBL_MIN * LDBL_MIN does not work on other - platforms, such as when cross-compiling to PowerPC on MacOS X 10.5. */ -#if defined __hpux || defined __sgi -static long double -compute_minus_zerol (void) -{ - return -LDBL_MIN * LDBL_MIN; -} -# define minus_zerol compute_minus_zerol () -#else -long double minus_zerol = -0.0L; -#endif - static void test_signbitf () { @@ -68,10 +47,10 @@ ASSERT (signbit (-2.718e-30f)); /* Zeros. */ ASSERT (!signbit (0.0f)); - if (1.0f / -zerof < 0) - ASSERT (signbit (-zerof)); + if (1.0f / minus_zerof < 0) + ASSERT (signbit (minus_zerof)); else - ASSERT (!signbit (-zerof)); + ASSERT (!signbit (minus_zerof)); /* Infinite values. */ ASSERT (!signbit (1.0f / 0.0f)); ASSERT (signbit (-1.0f / 0.0f)); @@ -113,10 +92,10 @@ ASSERT (signbit (-2.718e-30)); /* Zeros. */ ASSERT (!signbit (0.0)); - if (1.0 / -zerod < 0) - ASSERT (signbit (-zerod)); + if (1.0 / minus_zerod < 0) + ASSERT (signbit (minus_zerod)); else - ASSERT (!signbit (-zerod)); + ASSERT (!signbit (minus_zerod)); /* Infinite values. */ ASSERT (!signbit (1.0 / 0.0)); ASSERT (signbit (-1.0 / 0.0));
--- a/tests/test-snprintf-posix.h +++ b/tests/test-snprintf-posix.h @@ -16,6 +16,7 @@ /* Written by Bruno Haible <bruno@clisp.org>, 2007. */ +#include "minus-zero.h" #include "nan.h" /* The SGI MIPS floating-point format does not distinguish 0.0 and -0.0. */ @@ -23,30 +24,10 @@ have_minus_zero () { static double plus_zero = 0.0; - double minus_zero = - plus_zero; + double minus_zero = minus_zerod; return memcmp (&plus_zero, &minus_zero, sizeof (double)) != 0; } -/* HP cc on HP-UX 10.20 has a bug with the constant expression -0.0. - So we use -zerod instead. */ -double zerod = 0.0; - -/* On HP-UX 10.20, negating 0.0L does not yield -0.0L. - So we use minus_zerol instead. - IRIX cc can't put -0.0L into .data, but can compute at runtime. - Note that the expression -LDBL_MIN * LDBL_MIN does not work on other - platforms, such as when cross-compiling to PowerPC on MacOS X 10.5. */ -#if defined __hpux || defined __sgi -static long double -compute_minus_zerol (void) -{ - return -LDBL_MIN * LDBL_MIN; -} -# define minus_zerol compute_minus_zerol () -#else -long double minus_zerol = -0.0L; -#endif - /* Representation of an 80-bit 'long double' as an initializer for a sequence of 'unsigned int' words. */ #ifdef WORDS_BIGENDIAN @@ -192,7 +173,7 @@ { /* Negative zero. */ char result[100]; int retval = - my_snprintf (result, sizeof (result), "%a %d", -zerod, 33, 44, 55); + my_snprintf (result, sizeof (result), "%a %d", minus_zerod, 33, 44, 55); if (have_minus_zero ()) ASSERT (strcmp (result, "-0x0p+0 33") == 0); ASSERT (retval == strlen (result)); @@ -901,7 +882,7 @@ { /* Negative zero. */ char result[100]; int retval = - my_snprintf (result, sizeof (result), "%f %d", -zerod, 33, 44, 55); + my_snprintf (result, sizeof (result), "%f %d", minus_zerod, 33, 44, 55); if (have_minus_zero ()) ASSERT (strcmp (result, "-0.000000 33") == 0); ASSERT (retval == strlen (result)); @@ -1415,7 +1396,7 @@ { /* Negative zero. */ char result[100]; int retval = - my_snprintf (result, sizeof (result), "%F %d", -zerod, 33, 44, 55); + my_snprintf (result, sizeof (result), "%F %d", minus_zerod, 33, 44, 55); if (have_minus_zero ()) ASSERT (strcmp (result, "-0.000000 33") == 0); ASSERT (retval == strlen (result)); @@ -1738,7 +1719,7 @@ { /* Negative zero. */ char result[100]; int retval = - my_snprintf (result, sizeof (result), "%e %d", -zerod, 33, 44, 55); + my_snprintf (result, sizeof (result), "%e %d", minus_zerod, 33, 44, 55); if (have_minus_zero ()) ASSERT (strcmp (result, "-0.000000e+00 33") == 0 || strcmp (result, "-0.000000e+000 33") == 0); @@ -2403,7 +2384,7 @@ { /* Negative zero. */ char result[100]; int retval = - my_snprintf (result, sizeof (result), "%g %d", -zerod, 33, 44, 55); + my_snprintf (result, sizeof (result), "%g %d", minus_zerod, 33, 44, 55); if (have_minus_zero ()) ASSERT (strcmp (result, "-0 33") == 0); ASSERT (retval == strlen (result));
--- a/tests/test-sprintf-posix.h +++ b/tests/test-sprintf-posix.h @@ -16,6 +16,7 @@ /* Written by Bruno Haible <bruno@clisp.org>, 2007. */ +#include "minus-zero.h" #include "nan.h" /* The SGI MIPS floating-point format does not distinguish 0.0 and -0.0. */ @@ -23,30 +24,10 @@ have_minus_zero () { static double plus_zero = 0.0; - double minus_zero = - plus_zero; + double minus_zero = minus_zerod; return memcmp (&plus_zero, &minus_zero, sizeof (double)) != 0; } -/* HP cc on HP-UX 10.20 has a bug with the constant expression -0.0. - So we use -zerod instead. */ -double zerod = 0.0; - -/* On HP-UX 10.20, negating 0.0L does not yield -0.0L. - So we use minus_zerol instead. - IRIX cc can't put -0.0L into .data, but can compute at runtime. - Note that the expression -LDBL_MIN * LDBL_MIN does not work on other - platforms, such as when cross-compiling to PowerPC on MacOS X 10.5. */ -#if defined __hpux || defined __sgi -static long double -compute_minus_zerol (void) -{ - return -LDBL_MIN * LDBL_MIN; -} -# define minus_zerol compute_minus_zerol () -#else -long double minus_zerol = -0.0L; -#endif - /* Representation of an 80-bit 'long double' as an initializer for a sequence of 'unsigned int' words. */ #ifdef WORDS_BIGENDIAN @@ -178,7 +159,7 @@ { /* Negative zero. */ char result[1000]; int retval = - my_sprintf (result, "%a %d", -zerod, 33, 44, 55); + my_sprintf (result, "%a %d", minus_zerod, 33, 44, 55); if (have_minus_zero ()) ASSERT (strcmp (result, "-0x0p+0 33") == 0); ASSERT (retval == strlen (result)); @@ -887,7 +868,7 @@ { /* Negative zero. */ char result[1000]; int retval = - my_sprintf (result, "%f %d", -zerod, 33, 44, 55); + my_sprintf (result, "%f %d", minus_zerod, 33, 44, 55); if (have_minus_zero ()) ASSERT (strcmp (result, "-0.000000 33") == 0); ASSERT (retval == strlen (result)); @@ -1401,7 +1382,7 @@ { /* Negative zero. */ char result[1000]; int retval = - my_sprintf (result, "%F %d", -zerod, 33, 44, 55); + my_sprintf (result, "%F %d", minus_zerod, 33, 44, 55); if (have_minus_zero ()) ASSERT (strcmp (result, "-0.000000 33") == 0); ASSERT (retval == strlen (result)); @@ -1724,7 +1705,7 @@ { /* Negative zero. */ char result[1000]; int retval = - my_sprintf (result, "%e %d", -zerod, 33, 44, 55); + my_sprintf (result, "%e %d", minus_zerod, 33, 44, 55); if (have_minus_zero ()) ASSERT (strcmp (result, "-0.000000e+00 33") == 0 || strcmp (result, "-0.000000e+000 33") == 0); @@ -2389,7 +2370,7 @@ { /* Negative zero. */ char result[1000]; int retval = - my_sprintf (result, "%g %d", -zerod, 33, 44, 55); + my_sprintf (result, "%g %d", minus_zerod, 33, 44, 55); if (have_minus_zero ()) ASSERT (strcmp (result, "-0 33") == 0); ASSERT (retval == strlen (result));
--- a/tests/test-strtod.c +++ b/tests/test-strtod.c @@ -28,15 +28,12 @@ #include <string.h> #include "isnand-nolibm.h" +#include "minus-zero.h" #include "macros.h" /* Avoid requiring -lm just for fabs. */ #define FABS(d) ((d) < 0.0 ? -(d) : (d)) -/* HP cc on HP-UX 10.20 has a bug with the constant expression -0.0. - So we use -zero instead. */ -double zero = 0.0; - int main (void) { @@ -312,7 +309,7 @@ errno = 0; result = strtod (input, &ptr); ASSERT (result == 0.0); - ASSERT (!!signbit (result) == !!signbit (-zero)); /* IRIX 6.5, OSF/1 4.0 */ + ASSERT (!!signbit (result) == !!signbit (minus_zerod)); /* IRIX 6.5, OSF/1 4.0 */ ASSERT (ptr == input + 2); ASSERT (errno == 0); } @@ -407,7 +404,7 @@ errno = 0; result = strtod (input, &ptr); ASSERT (result == 0.0); - ASSERT (!!signbit (result) == !!signbit (-zero)); /* MacOS X 10.3, FreeBSD 6.2, IRIX 6.5, OSF/1 4.0 */ + ASSERT (!!signbit (result) == !!signbit (minus_zerod)); /* MacOS X 10.3, FreeBSD 6.2, IRIX 6.5, OSF/1 4.0 */ ASSERT (ptr == input + 2); /* glibc-2.3.6, MacOS X 10.3, FreeBSD 6.2, AIX 7.1 */ ASSERT (errno == 0); } @@ -553,7 +550,7 @@ 0 on negative underflow, even though quality of implementation demands preserving the sign. Disable this test until fixed glibc is more prevalent. */ - ASSERT (!!signbit (result) == !!signbit (-zero)); /* glibc-2.3.6, mingw */ + ASSERT (!!signbit (result) == !!signbit (minus_zerod)); /* glibc-2.3.6, mingw */ #endif ASSERT (ptr == input + 10); ASSERT (errno == ERANGE); @@ -972,7 +969,7 @@ errno = 0; result = strtod (input, &ptr); ASSERT (result == 0.0); - ASSERT (!!signbit (result) == !!signbit (-zero)); /* IRIX 6.5, OSF/1 4.0 */ + ASSERT (!!signbit (result) == !!signbit (minus_zerod)); /* IRIX 6.5, OSF/1 4.0 */ ASSERT (ptr == input + m); ASSERT (errno == 0); }
--- a/tests/test-trunc1.c +++ b/tests/test-trunc1.c @@ -24,19 +24,16 @@ SIGNATURE_CHECK (trunc, double, (double)); #include "isnand-nolibm.h" +#include "minus-zero.h" #include "nan.h" #include "macros.h" -/* HP cc on HP-UX 10.20 has a bug with the constant expression -0.0. - So we use -zero instead. */ -double zero = 0.0; - int main () { /* Zero. */ ASSERT (trunc (0.0) == 0.0); - ASSERT (trunc (-zero) == 0.0); + ASSERT (trunc (minus_zerod) == 0.0); /* Positive numbers. */ ASSERT (trunc (0.3) == 0.0); ASSERT (trunc (0.7) == 0.0);
--- a/tests/test-truncf1.c +++ b/tests/test-truncf1.c @@ -24,19 +24,16 @@ SIGNATURE_CHECK (truncf, float, (float)); #include "isnanf-nolibm.h" +#include "minus-zero.h" #include "nan.h" #include "macros.h" -/* HP cc on HP-UX 10.20 has a bug with the constant expression -0.0f. - So we use -zero instead. */ -float zero = 0.0f; - int main () { /* Zero. */ ASSERT (truncf (0.0f) == 0.0f); - ASSERT (truncf (-zero) == 0.0f); + ASSERT (truncf (minus_zerof) == 0.0f); /* Positive numbers. */ ASSERT (truncf (0.3f) == 0.0f); ASSERT (truncf (0.7f) == 0.0f);
--- a/tests/test-truncl.c +++ b/tests/test-truncl.c @@ -27,25 +27,10 @@ #include "fpucw.h" #include "isnanl-nolibm.h" +#include "minus-zero.h" #include "nan.h" #include "macros.h" -/* On HP-UX 10.20, negating 0.0L does not yield -0.0L. - So we use minus_zero instead. - IRIX cc can't put -0.0L into .data, but can compute at runtime. - Note that the expression -LDBL_MIN * LDBL_MIN does not work on other - platforms, such as when cross-compiling to PowerPC on MacOS X 10.5. */ -#if defined __hpux || defined __sgi -static long double -compute_minus_zero (void) -{ - return -LDBL_MIN * LDBL_MIN; -} -# define minus_zero compute_minus_zero () -#else -long double minus_zero = -0.0L; -#endif - int main () { @@ -55,7 +40,7 @@ /* Zero. */ ASSERT (truncl (0.0L) == 0.0L); - ASSERT (truncl (minus_zero) == 0.0L); + ASSERT (truncl (minus_zerol) == 0.0L); /* Positive numbers. */ ASSERT (truncl (0.3L) == 0.0L); ASSERT (truncl (0.7L) == 0.0L);
--- a/tests/test-vasnprintf-posix.c +++ b/tests/test-vasnprintf-posix.c @@ -29,6 +29,7 @@ #include <string.h> #include "macros.h" +#include "minus-zero.h" #include "nan.h" /* The SGI MIPS floating-point format does not distinguish 0.0 and -0.0. */ @@ -36,30 +37,10 @@ have_minus_zero () { static double plus_zero = 0.0; - double minus_zero = - plus_zero; + double minus_zero = minus_zerod; return memcmp (&plus_zero, &minus_zero, sizeof (double)) != 0; } -/* HP cc on HP-UX 10.20 has a bug with the constant expression -0.0. - So we use -zerod instead. */ -double zerod = 0.0; - -/* On HP-UX 10.20, negating 0.0L does not yield -0.0L. - So we use minus_zerol instead. - IRIX cc can't put -0.0L into .data, but can compute at runtime. - Note that the expression -LDBL_MIN * LDBL_MIN does not work on other - platforms, such as when cross-compiling to PowerPC on MacOS X 10.5. */ -#if defined __hpux || defined __sgi -static long double -compute_minus_zerol (void) -{ - return -LDBL_MIN * LDBL_MIN; -} -# define minus_zerol compute_minus_zerol () -#else -long double minus_zerol = -0.0L; -#endif - /* Representation of an 80-bit 'long double' as an initializer for a sequence of 'unsigned int' words. */ #ifdef WORDS_BIGENDIAN @@ -225,7 +206,7 @@ { /* Negative zero. */ size_t length; char *result = - my_asnprintf (NULL, &length, "%a %d", -zerod, 33, 44, 55); + my_asnprintf (NULL, &length, "%a %d", minus_zerod, 33, 44, 55); ASSERT (result != NULL); if (have_minus_zero ()) ASSERT (strcmp (result, "-0x0p+0 33") == 0); @@ -1052,7 +1033,7 @@ { /* Negative zero. */ size_t length; char *result = - my_asnprintf (NULL, &length, "%f %d", -zerod, 33, 44, 55); + my_asnprintf (NULL, &length, "%f %d", minus_zerod, 33, 44, 55); ASSERT (result != NULL); if (have_minus_zero ()) ASSERT (strcmp (result, "-0.000000 33") == 0); @@ -1662,7 +1643,7 @@ { /* Negative zero. */ size_t length; char *result = - my_asnprintf (NULL, &length, "%F %d", -zerod, 33, 44, 55); + my_asnprintf (NULL, &length, "%F %d", minus_zerod, 33, 44, 55); ASSERT (result != NULL); if (have_minus_zero ()) ASSERT (strcmp (result, "-0.000000 33") == 0); @@ -2039,7 +2020,7 @@ { /* Negative zero. */ size_t length; char *result = - my_asnprintf (NULL, &length, "%e %d", -zerod, 33, 44, 55); + my_asnprintf (NULL, &length, "%e %d", minus_zerod, 33, 44, 55); ASSERT (result != NULL); if (have_minus_zero ()) ASSERT (strcmp (result, "-0.000000e+00 33") == 0 @@ -2806,7 +2787,7 @@ { /* Negative zero. */ size_t length; char *result = - my_asnprintf (NULL, &length, "%g %d", -zerod, 33, 44, 55); + my_asnprintf (NULL, &length, "%g %d", minus_zerod, 33, 44, 55); ASSERT (result != NULL); if (have_minus_zero ()) ASSERT (strcmp (result, "-0 33") == 0);
--- a/tests/test-vasprintf-posix.c +++ b/tests/test-vasprintf-posix.c @@ -28,6 +28,7 @@ #include <string.h> #include "macros.h" +#include "minus-zero.h" #include "nan.h" /* The SGI MIPS floating-point format does not distinguish 0.0 and -0.0. */ @@ -35,30 +36,10 @@ have_minus_zero () { static double plus_zero = 0.0; - double minus_zero = - plus_zero; + double minus_zero = minus_zerod; return memcmp (&plus_zero, &minus_zero, sizeof (double)) != 0; } -/* HP cc on HP-UX 10.20 has a bug with the constant expression -0.0. - So we use -zerod instead. */ -double zerod = 0.0; - -/* On HP-UX 10.20, negating 0.0L does not yield -0.0L. - So we use minus_zerol instead. - IRIX cc can't put -0.0L into .data, but can compute at runtime. - Note that the expression -LDBL_MIN * LDBL_MIN does not work on other - platforms, such as when cross-compiling to PowerPC on MacOS X 10.5. */ -#if defined __hpux || defined __sgi -static long double -compute_minus_zerol (void) -{ - return -LDBL_MIN * LDBL_MIN; -} -# define minus_zerol compute_minus_zerol () -#else -long double minus_zerol = -0.0L; -#endif - /* Representation of an 80-bit 'long double' as an initializer for a sequence of 'unsigned int' words. */ #ifdef WORDS_BIGENDIAN @@ -205,7 +186,7 @@ { /* Negative zero. */ char *result; int retval = - my_asprintf (&result, "%a %d", -zerod, 33, 44, 55); + my_asprintf (&result, "%a %d", minus_zerod, 33, 44, 55); ASSERT (result != NULL); if (have_minus_zero ()) ASSERT (strcmp (result, "-0x0p+0 33") == 0); @@ -1032,7 +1013,7 @@ { /* Negative zero. */ char *result; int retval = - my_asprintf (&result, "%f %d", -zerod, 33, 44, 55); + my_asprintf (&result, "%f %d", minus_zerod, 33, 44, 55); ASSERT (result != NULL); if (have_minus_zero ()) ASSERT (strcmp (result, "-0.000000 33") == 0); @@ -1642,7 +1623,7 @@ { /* Negative zero. */ char *result; int retval = - my_asprintf (&result, "%F %d", -zerod, 33, 44, 55); + my_asprintf (&result, "%F %d", minus_zerod, 33, 44, 55); ASSERT (result != NULL); if (have_minus_zero ()) ASSERT (strcmp (result, "-0.000000 33") == 0); @@ -2019,7 +2000,7 @@ { /* Negative zero. */ char *result; int retval = - my_asprintf (&result, "%e %d", -zerod, 33, 44, 55); + my_asprintf (&result, "%e %d", minus_zerod, 33, 44, 55); ASSERT (result != NULL); if (have_minus_zero ()) ASSERT (strcmp (result, "-0.000000e+00 33") == 0 @@ -2786,7 +2767,7 @@ { /* Negative zero. */ char *result; int retval = - my_asprintf (&result, "%g %d", -zerod, 33, 44, 55); + my_asprintf (&result, "%g %d", minus_zerod, 33, 44, 55); ASSERT (result != NULL); if (have_minus_zero ()) ASSERT (strcmp (result, "-0 33") == 0);