From 24a9cea6ef313d062e04919a86feb649e6f157f7 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Sun, 25 Nov 2012 20:59:07 +0100 Subject: [PATCH] re PR libquadmath/55462 (FAIL: gfortran.dg/quad_2.f90 -O* execution test after revision 193770) 2012-11-25 Tobias Burnus PR libquadmath/55462 * strtod/strtod_l.c (round_and_return): Use HAVE_FENV_H instead of nonexisting HAVE_GET_ROUNDING_MODE. From-SVN: r193796 --- libquadmath/ChangeLog | 6 ++++++ libquadmath/strtod/strtod_l.c | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/libquadmath/ChangeLog b/libquadmath/ChangeLog index 365c4bb0d55..8b052dcf390 100644 --- a/libquadmath/ChangeLog +++ b/libquadmath/ChangeLog @@ -1,3 +1,9 @@ +2012-11-25 Tobias Burnus + + PR libquadmath/55462 + * strtod/strtod_l.c (round_and_return): Use HAVE_FENV_H + instead of nonexisting HAVE_GET_ROUNDING_MODE. + 2012-11-23 H.J. Lu PR bootstrap/55455 diff --git a/libquadmath/strtod/strtod_l.c b/libquadmath/strtod/strtod_l.c index 5e3321fd742..cd0c1f2da25 100644 --- a/libquadmath/strtod/strtod_l.c +++ b/libquadmath/strtod/strtod_l.c @@ -223,7 +223,7 @@ round_and_return (mp_limb_t *retval, intmax_t exponent, int negative, } else if (shift > 0) { -#ifdef HAVE_GET_ROUNDING_MODE +#ifdef HAVE_FENV_H if (TININESS_AFTER_ROUNDING && shift == 1) { /* Whether the result counts as tiny depends on whether, @@ -279,7 +279,7 @@ round_and_return (mp_limb_t *retval, intmax_t exponent, int negative, if (exponent > MAX_EXP) goto overflow; -#ifdef HAVE_GET_ROUNDING_MODE +#ifdef HAVE_FENV_H if (round_away (negative, (retval[0] & 1) != 0, (round_limb & (((mp_limb_t) 1) << round_bit)) != 0, -- 2.30.2