Mercurial > hg > CbC > CbC_gcc
diff libquadmath/math/llroundq.c @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line diff
--- a/libquadmath/math/llroundq.c Thu Oct 25 07:37:49 2018 +0900 +++ b/libquadmath/math/llroundq.c Thu Feb 13 11:34:05 2020 +0900 @@ -1,5 +1,5 @@ -/* Round __float128 value to long long int. - Copyright (C) 1997-2017 Free Software Foundation, Inc. +/* Round long double value to long long int. + Copyright (C) 1997-2018 Free Software Foundation, Inc. This file is part of the GNU C Library. Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997 and Jakub Jelinek <jj@ultra.linux.cz>, 1999. @@ -15,13 +15,11 @@ Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public - License along with the GNU C Library; if not, write to the Free - Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA - 02111-1307 USA. */ + License along with the GNU C Library; if not, see + <http://www.gnu.org/licenses/>. */ #include "quadmath-imp.h" - long long int llroundq (__float128 x) { @@ -61,7 +59,7 @@ else { result = ((long long int) i0 << (j0 - 48)) | (j >> (112 - j0)); -#if defined FE_INVALID && defined USE_FENV_H +#ifdef FE_INVALID if (sign == 1 && result == LLONG_MIN) /* Rounding brought the value out of range. */ feraiseexcept (FE_INVALID); @@ -75,13 +73,18 @@ FE_INVALID must be raised and the return value is unspecified. */ #ifdef FE_INVALID - if (x <= (__float128) LLONG_MIN - 0.5Q) + if (FIX_FLT128_LLONG_CONVERT_OVERFLOW + && !(sign == -1 && x > (__float128) LLONG_MIN - 0.5Q)) + { + feraiseexcept (FE_INVALID); + return sign == 1 ? LLONG_MAX : LLONG_MIN; + } + else if (!FIX_FLT128_LLONG_CONVERT_OVERFLOW + && x <= (__float128) LLONG_MIN - 0.5Q) { /* If truncation produces LLONG_MIN, the cast will not raise the exception, but may raise "inexact". */ -#ifdef USE_FENV_H feraiseexcept (FE_INVALID); -#endif return LLONG_MIN; } #endif