*** empty log message ***

From-SVN: r374

diff --git a/gcc/optabs.c b/gcc/optabs.c
index 6fd2315946568c892b3f170a0c8abbf634c52222..58a36cfb886c2d235977b84adac231f16239313c 100644 (file)
--- a/gcc/optabs.c
+++ b/gcc/optabs.c
@@ -3995,3 +3995,20 @@ init_optabs ()
   fixunsdfsi_libfunc = gen_rtx (SYMBOL_REF, Pmode, "__fixunsdfsi");
   fixunsdfdi_libfunc = gen_rtx (SYMBOL_REF, Pmode, "__fixunsdfdi");
 }
+\f
+#ifdef BROKEN_LDEXP
+
+/* SCO 3.2 apparently has a broken ldexp. */
+
+double
+ldexp(x,n)
+     double x;
+     int n;
+{
+  if (n > 0)
+    while (n--)
+      x *= 2;
+
+  return x;
+}
+#endif /* BROKEN_LDEXP */