* libm/common/s_fdim.c: New file.

	* libm/common/s_fma.c: Likewise.
	* libm/common/s_fmax.c: Likewise.
	* libm/common/s_fmin.c: Likewise.
	* libm/common/s_fpclassify.c: Likewise.
	* libm/common/s_lrint.c: Likewise.
	* libm/common/s_lround.c: Likewise.
	* libm/common/s_nearbyint.c: Likewise.
	* libm/common/s_remquo.c: Likewise.
	* libm/common/s_round.c: Likewise.
	* libm/common/s_scalbln.c: Likewise.
	* libm/common/s_signbit.c: Likewise.
	* libm/common/s_trunc.c: Likewise.
	* libm/common/sf_fdim.c: Likewise.
	* libm/common/sf_fma.c: Likewise.
	* libm/common/sf_fmax.c: Likewise.
	* libm/common/sf_fmin.c: Likewise.
	* libm/common/sf_lrint.c: Likewise.
	* libm/common/sf_lround.c: Likewise.
	* libm/common/sf_nearbyint.c: Likewise.
	* libm/common/sf_remquo.c: Likewise.
	* libm/common/sf_round.c: Likewise.
	* libm/common/sf_scalbln.c: Likewise.
	* libm/common/sf_trunc.c: Likewise.
	* libm/math/w_exp2.c: Likewise.
	* libm/math/w_tgamma.c: Likewise.
	* libm/math/wf_exp2.c: Likewise.
	* libm/math/wf_tgamma.c: Likewise.
	* libm/mathfp/s_exp2.c: Likewise.
	* libm/mathfp/s_tgamma.c: Likewise.
	* libm/mathfp/sf_exp2.c: Likewise.
	* libm/mathfp/sf_tgamma.c: Likewise.
	* libm/math/er_gamma.c: Fix return value.
	* libm/math/erf_gamma.c: Likewise.
	* libm/mathfp/er_gamma.c: Likewise.
	* libm/mathfp/erf_gamma.c: Likewise.
	* libc/include/math.h (!__STRICT_ANSI__): Include ISOC99-specific
	declarations and macros.
	Regenerated all Makefile.in, aclocal.m4 and configure files to
	use new libtool macros in top-level libtool.m4

1 files changed, 69 insertions, 0 deletions

diff --git a/newlib/libm/common/s_trunc.c b/newlib/libm/common/s_trunc.c
new file mode 100644
index 000000000..c3ca154d9
--- /dev/null
+++ b/newlib/libm/common/s_trunc.c
@@ -0,0 +1,69 @@
+/*
+ * ====================================================
+ * 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"
+
+#ifndef _DOUBLE_IS_32BITS
+
+#ifdef __STDC__
+	double trunc(double x)
+#else
+	double trunc(x)
+	double x;
+#endif
+{
+  int signbit;
+  /* Most significant word, least significant word. */
+  int msw;
+  unsigned int lsw;
+  int exponent_less_1023;
+
+  EXTRACT_WORDS(msw, lsw, x);
+
+  /* Extract sign bit. */
+  signbit = msw & 0x80000000;
+
+  /* Extract exponent field. */
+  exponent_less_1023 = ((msw & 0x7ff00000) >> 20) - 1023;
+
+  if (exponent_less_1023 < 20)
+    {
+      /* All significant digits are in msw. */
+      if (exponent_less_1023 < 0)
+        {
+          /* -1 < x < 1, so result is +0 or -0. */
+          INSERT_WORDS(x, signbit, 0);
+        }
+      else
+        {
+          /* All relevant fraction bits are in msw, so lsw of the result is 0. */
+          INSERT_WORDS(x, signbit | (msw & ~(0x000fffff >> exponent_less_1023)), 0);
+        }
+    }
+  else if (exponent_less_1023 > 51)
+    {
+      if (exponent_less_1023 == 1024)
+        {
+          /* x is infinite, or not a number, so trigger an exception. */
+          return x + x;
+        }
+      /* All bits in the fraction fields of the msw and lsw are needed in the result. */
+    }
+  else
+    {
+      /* All fraction bits in msw are relevant.  Truncate irrelevant
+         bits from lsw. */
+      INSERT_WORDS(x, msw, lsw & ~(0xffffffffu >> (exponent_less_1023 - 20)));
+    }
+  return x;
+}
+
+#endif /* _DOUBLE_IS_32BITS */