about summary refs log tree commit diff
path: root/sysdeps/ieee754/ldbl-96/s_nextupl.c
diff options
context:
space:
mode:
Diffstat (limited to 'sysdeps/ieee754/ldbl-96/s_nextupl.c')
-rw-r--r--sysdeps/ieee754/ldbl-96/s_nextupl.c84
1 files changed, 0 insertions, 84 deletions
diff --git a/sysdeps/ieee754/ldbl-96/s_nextupl.c b/sysdeps/ieee754/ldbl-96/s_nextupl.c
deleted file mode 100644
index aa66eaf106..0000000000
--- a/sysdeps/ieee754/ldbl-96/s_nextupl.c
+++ /dev/null
@@ -1,84 +0,0 @@
-/* Return the least floating-point number greater than X.
-   Copyright (C) 2016-2017 Free Software Foundation, Inc.
-   This file is part of the GNU C Library.
-
-   The GNU C Library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Lesser General Public
-   License as published by the Free Software Foundation; either
-   version 2.1 of the License, or (at your option) any later version.
-
-   The GNU C Library 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
-   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, see
-   <http://www.gnu.org/licenses/>.  */
-
-#include <math.h>
-#include <math_private.h>
-
-/* Return the least floating-point number greater than X.  */
-long double
-__nextupl (long double x)
-{
-  u_int32_t hx, ix;
-  u_int32_t lx;
-  int32_t esx;
-
-  GET_LDOUBLE_WORDS (esx, hx, lx, x);
-  ix = esx & 0x7fff;
-
-  if (((ix == 0x7fff) && (((hx & 0x7fffffff) | lx) != 0)))  /* x is nan.  */
-    return x + x;
-  if ((ix | hx | lx) == 0)
-    return LDBL_TRUE_MIN;
-  if (esx >= 0)
-    {				/* x > 0.  */
-      if (isinf (x))
-        return x;
-      lx += 1;
-      if (lx == 0)
-        {
-          hx += 1;
-#if LDBL_MIN_EXP == -16381
-          if (hx == 0 || (esx == 0 && hx == 0x80000000))
-#else
-          if (hx == 0)
-#endif
-          {
-            esx += 1;
-            hx |= 0x80000000;
-          }
-        }
-    }
-  else
-    {				/* x < 0.  */
-      if (lx == 0)
-        {
-#if LDBL_MIN_EXP == -16381
-          if (hx <= 0x80000000 && esx != 0xffff8000)
-            {
-              esx -= 1;
-              hx = hx - 1;
-              if ((esx & 0x7fff) > 0)
-                hx |= 0x80000000;
-            }
-          else
-            hx -= 1;
-#else
-          if (ix != 0 && hx == 0x80000000)
-            hx = 0;
-          if (hx == 0)
-            esx -= 1;
-          hx -= 1;
-#endif
-        }
-      lx -= 1;
-    }
-  SET_LDOUBLE_WORDS (x, esx, hx, lx);
-  return x;
-}
-
-weak_alias (__nextupl, nextupl)