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;
     }