1 files changed, 52 insertions, 0 deletions
diff --git a/newlib/libm/common/s_fpclassify.c b/newlib/libm/common/s_fpclassify.c
new file mode 100644
index 000000000..0911915ff
--- /dev/null
+++ b/newlib/libm/common/s_fpclassify.c
@@ -0,0 +1,52 @@
+/* Copyright (C) 2002 by  Red Hat, Incorporated. All rights reserved.
+ *
+ * Permission to use, copy, modify, and distribute this software
+ * is freely granted, provided that this notice is preserved.
+ */
+
+#include "fdlibm.h"
+
+int
+__fpclassifyf (float x)
+{
+  unsigned int w;
+
+  GET_FLOAT_WORD(w,x);
+  
+  if (w == 0x00000000 || w == 0x80000000)
+    return FP_ZERO;
+  else if ((w >= 0x00800000 && w <= 0x7f7fffff) ||
+           (w >= 0xff7fffff && w <= 0x80800000))
+    return FP_NORMAL;
+  else if ((w >= 0x00000001 && w <= 0x007fffff) ||
+           (w >= 0x807fffff && w <= 0x80000001))
+    return FP_SUBNORMAL;
+  else if (w == 0x7f800000 || w == 0xff800000)
+    return FP_INFINITE;
+  else
+    return FP_NAN;
+}
+
+int
+__fpclassifyd (double x)
+{
+  unsigned int msw, lsw;
+
+  EXTRACT_WORDS(msw,lsw,x);
+
+  if ((msw == 0x00000000 && lsw == 0x00000000) ||
+      (msw == 0x80000000 && lsw == 0x00000000))
+    return FP_ZERO;
+  else if ((msw >= 0x00100000 && msw <= 0x7fefffff) ||
+           (msw >= 0xffefffff && msw <= 0x80100000))
+    return FP_NORMAL;
+  else if ((msw >= 0x00000000 && msw <= 0x000fffff) ||
+           (msw >= 0x800fffff && msw <= 0x80000000))
+    /* zero is already handled above */
+    return FP_SUBNORMAL;
+  else if ((msw == 0x7ff00000 && lsw == 0x00000000) ||
+           (msw == 0xfff00000 && lsw == 0x00000000))
+    return FP_INFINITE;
+  else
+    return FP_NAN;
+}