about summary refs log tree commit diff
path: root/sysdeps/ieee754/ldbl-128ibm/w_expl.c
diff options
context:
space:
mode:
authorAndreas Schwab <schwab@suse.de>2013-01-10 10:42:58 +0100
committerAndreas Schwab <schwab@suse.de>2013-01-10 10:44:05 +0100
commitd1cdd051387a98c79ef8fca4847b8701cfdcd79b (patch)
tree8d0c81c3e41e8a1c1a28ddd836093b1f13ad1fda /sysdeps/ieee754/ldbl-128ibm/w_expl.c
parent8790af5f9ff9bdbb9f016b5554ad600a439cc79f (diff)
downloadglibc-d1cdd051387a98c79ef8fca4847b8701cfdcd79b.tar.gz
glibc-d1cdd051387a98c79ef8fca4847b8701cfdcd79b.tar.xz
glibc-d1cdd051387a98c79ef8fca4847b8701cfdcd79b.zip
Revert "sysdeps/ieee754/ldbl-128ibm/e_expl.c"
This reverts commit 35eb879e3b7849e86f06658bdb888f7858b30759.
Diffstat (limited to 'sysdeps/ieee754/ldbl-128ibm/w_expl.c')
-rw-r--r--sysdeps/ieee754/ldbl-128ibm/w_expl.c46
1 files changed, 4 insertions, 42 deletions
diff --git a/sysdeps/ieee754/ldbl-128ibm/w_expl.c b/sysdeps/ieee754/ldbl-128ibm/w_expl.c
index c00b311cc9..a5e72b2170 100644
--- a/sysdeps/ieee754/ldbl-128ibm/w_expl.c
+++ b/sysdeps/ieee754/ldbl-128ibm/w_expl.c
@@ -1,44 +1,6 @@
-/*
- * ====================================================
- * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
- *
- * Developed at SunPro, a Sun Microsystems, Inc. business.
- * Permission to use, copy, modify, and distribute this
- * software is freely granted, provided that this notice
- * is preserved.
- * ====================================================
- */
-
-
-#include <math.h>
-#include <math_private.h>
+/* Looks like we can use ieee854 w_expl.c as is for IBM extended format. */
 #include <math_ldbl_opt.h>
-
-/*
- * wrapper expl(x)
- */
-static const long double
-o_threshold = 709.78271289338399678773454114191496482L,
-u_threshold = -744.44007192138126231410729844608163411L;
-
-long double __expl(long double x)	/* wrapper exp */
-{
-#ifdef _IEEE_LIBM
-  return __ieee754_expl(x);
-#else
-  long double z;
-  z = __ieee754_expl(x);
-  if (_LIB_VERSION == _IEEE_)
-    return z;
-  if (__finitel(x))
-    {
-      if (x >= o_threshold)
-	return __kernel_standard_l(x,x,206); /* exp overflow */
-      else if (x <= u_threshold)
-	return __kernel_standard_l(x,x,207); /* exp underflow */
-    }
-  return z;
-#endif
-}
-hidden_def (__expl)
+#undef weak_alias
+#define weak_alias(n,a)
+#include <sysdeps/ieee754/ldbl-128/w_expl.c>
 long_double_symbol (libm, __expl, expl);