1 files changed, 66 insertions, 0 deletions
diff --git a/newlib/libm/common/sf_trunc.c b/newlib/libm/common/sf_trunc.c
new file mode 100644
index 000000000..74ea933ce
--- /dev/null
+++ b/newlib/libm/common/sf_trunc.c
@@ -0,0 +1,66 @@
+/*
+ * ====================================================
+ * 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 "fdlibm.h"
+
+#ifdef __STDC__
+	float truncf(float x)
+#else
+	float truncf(x)
+	float x;
+#endif
+{
+  __int32_t signbit, w, exponent_less_127;
+
+  GET_FLOAT_WORD(w,x);
+
+  /* Extract sign bit. */
+  signbit = w & 0x80000000;
+
+  /* Extract exponent field. */
+  exponent_less_127 = ((w & 0x7f800000) >> 23) - 127;
+
+  if (exponent_less_127 < 23)
+    {
+      if (exponent_less_127 < 0)
+        {
+          /* -1 < x < 1, so result is +0 or -0. */
+          SET_FLOAT_WORD(x, signbit);
+        }
+      else
+        {
+          SET_FLOAT_WORD(x, signbit | (w & ~(0x007fffff >> exponent_less_127)));
+        }
+    }
+  else
+    {
+      if (exponent_less_127 == 255)
+        /* x is NaN or infinite. */
+        return x + x;
+
+      /* All bits in the fraction field are relevant. */
+    }
+  return x;
+}
+
+#ifdef _DOUBLE_IS_32BITS
+
+#ifdef __STDC__
+	double trunc(double x)
+#else
+	double trunc(x)
+	double x;
+#endif
+{
+	return (double) truncf((float) x);
+}
+
+#endif /* defined(_DOUBLE_IS_32BITS) */