Mercurial > hg > CbC > CbC_gcc
diff libquadmath/math/lroundq.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/lroundq.c Thu Oct 25 07:37:49 2018 +0900 +++ b/libquadmath/math/lroundq.c Thu Feb 13 11:34:05 2020 +0900 @@ -1,5 +1,5 @@ -/* Round __float128 value to long int. - Copyright (C) 1997-2017 Free Software Foundation, Inc. +/* Round long double value to 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 int lroundq (__float128 x) { @@ -46,7 +44,7 @@ { i0 += 0x0000800000000000LL >> j0; result = i0 >> (48 - j0); -#if defined FE_INVALID && defined USE_FENV_H +#ifdef FE_INVALID if (sizeof (long int) == 4 && sign == 1 && result == LONG_MIN) @@ -68,7 +66,7 @@ else { result = ((long int) i0 << (j0 - 48)) | (j >> (112 - j0)); -#if defined FE_INVALID && defined USE_FENV_H +#ifdef FE_INVALID if (sizeof (long int) == 8 && sign == 1 && result == LONG_MIN) @@ -84,16 +82,23 @@ FE_INVALID must be raised and the return value is unspecified. */ #ifdef FE_INVALID - if (x <= (__float128) LONG_MIN - 0.5Q) + if (FIX_FLT128_LONG_CONVERT_OVERFLOW + && !(sign == -1 && x > (__float128) LONG_MIN - 0.5Q)) + { + feraiseexcept (FE_INVALID); + return sign == 1 ? LONG_MAX : LONG_MIN; + } + else if (!FIX_FLT128_LONG_CONVERT_OVERFLOW + && x <= (__float128) LONG_MIN - 0.5Q) { /* If truncation produces LONG_MIN, the cast will not raise the exception, but may raise "inexact". */ -#ifdef USE_FENV_H feraiseexcept (FE_INVALID); -#endif return LONG_MIN; } #endif + /* The number is too large. It is left implementation defined + what happens. */ return (long int) x; }