From 8a0efa53e44919bcf5ccb1d3353618a82afdf8bc Mon Sep 17 00:00:00 2001
From: Christopher Faylor <me@cgf.cx>
Date: Thu, 17 Feb 2000 19:39:52 +0000
Subject: import newlib-2000-02-17 snapshot

---
 newlib/libm/mathfp/sf_frexp.c | 58 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100644 newlib/libm/mathfp/sf_frexp.c

(limited to 'newlib/libm/mathfp/sf_frexp.c')

diff --git a/newlib/libm/mathfp/sf_frexp.c b/newlib/libm/mathfp/sf_frexp.c
new file mode 100644
index 000000000..c2751f65c
--- /dev/null
+++ b/newlib/libm/mathfp/sf_frexp.c
@@ -0,0 +1,58 @@
+
+/* @(#)z_frexpf.c 1.0 98/08/13 */
+/******************************************************************
+ * frexp
+ *
+ * Input:
+ *   d   - floating point value
+ *   exp - exponent value
+ *
+ * Output:
+ *   A floating point value in the range [0.5, 1).
+ *
+ * Description:
+ *   This routine breaks a floating point value into a number f and
+ *   an exponent exp such that d = f * 2 ^ exp.
+ *
+ *****************************************************************/
+
+#include "fdlibm.h"
+#include "zmath.h"
+
+float frexpf (float d, int *exp)
+{
+  float f;
+  __int32_t wf, wd;
+
+  GET_FLOAT_WORD (wd, d);
+
+  /* Get the exponent. */
+  *exp = ((wd & 0x7f800000) >> 23) - 126;
+
+  /* Get the mantissa. */ 
+  wf = wd & 0x7fffff;  
+  wf |= 0x3f000000;
+
+  SET_FLOAT_WORD (f, wf);
+
+  /* Check for special values. */
+  switch (numtestf (f))
+    {
+      case NAN:
+      case INF:
+        errno = EDOM;
+        *exp = 0;
+        return (f);
+    }
+
+  return (f);
+}
+
+#ifdef _DOUBLE_IS_32BITS
+
+double frexp (double x, int *exp)
+{
+  return (double) frexpf ((float) x, exp);
+}
+
+#endif /* defined(_DOUBLE_IS_32BITS) */
-- 
cgit v1.2.3