*** empty log message ***

From-SVN: r374
1992-03-02 08:03:23 +00:00 · 1992-03-02 08:03:23 +00:00 · 7e1966ca45
commit 7e1966ca45
parent 6b0ac10671
1 changed files with 17 additions and 0 deletions
--- 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");
 }
+
+#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 */