Add incomplet long double math support to libmingwex.a

2002-07-29 03:00:10 +00:00
parent 840e611264
commit b8cdc234c6
143 changed files with 5213 additions and 639 deletions
--- a/winsup/mingw/mingwex/math/ldexpl.c
+++ b/winsup/mingw/mingwex/math/ldexpl.c
@@ -0,0 +1,14 @@
+#include <math.h>
+#include <errno.h>
+
+
+long double ldexpl(long double x, int expn)
+{
+  if (isfinite (x) && x != 0.0L)
+    {
+      x = scalbnl (x , expn);
+      if (!isfinite (x) || x == 0.0) errno = ERANGE;
+    }
+  return x;
+}
+