Initial revision

1987-01-27 15:57:55 +00:00
parent ee89196671
commit e49bbfbe1f
112 changed files with 4068 additions and 0 deletions
--- a/lang/cem/libcc/gen/ldexp.c
+++ b/lang/cem/libcc/gen/ldexp.c
@@ -0,0 +1,34 @@
+#ifndef NOFLOAT
+extern double frexp();
+
+double
+ldexp(fl,exp)
+	double fl;
+	int exp;
+{
+	int sign = 1;
+	int currexp;
+
+	if (fl<0) {
+		fl = -fl;
+		sign = -1;
+	}
+	fl = frexp(fl,&currexp);
+	exp += currexp;
+	if (exp > 0) {
+		while (exp>30) {
+			fl *= (double) (1L << 30);
+			exp -= 30;
+		}
+		fl *= (double) (1L << exp);
+	}
+	else	{
+		while (exp<-30) {
+			fl /= (double) (1L << 30);
+			exp += 30;
+		}
+		fl /= (double) (1L << -exp);
+	}
+	return sign * fl;
+}
+#endif