From 7e1966ca45824f2765cfa4a797f08a5f9980917f Mon Sep 17 00:00:00 2001
From: James Van Artsdalen <jrv@gnu.org>
Date: Mon, 2 Mar 1992 08:03:23 +0000
Subject: *** empty log message ***

From-SVN: r374
---
 gcc/optabs.c | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'gcc')

diff --git a/gcc/optabs.c b/gcc/optabs.c
index 6fd2315..58a36cf 100644
--- 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 */
-- 
cgit v1.1