From: ceriel <none@none>
Date: Wed, 20 Apr 1988 14:42:04 +0000 (+0000)
Subject: SUN4 frexp strikes again ...
X-Git-Tag: release-5-5~3367
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=083d520d381ca30a87dbcf1ef50bc7942f1b39a7;p=ack.git

SUN4 frexp strikes again ...
---

diff --git a/mach/pdp/cg/mach.c b/mach/pdp/cg/mach.c
index 734827424..e53e81275 100644
--- a/mach/pdp/cg/mach.c
+++ b/mach/pdp/cg/mach.c
@@ -63,16 +63,16 @@ con_float() {
 	if (argval != 4 && argval != 8)
 		fatal("bad fcon size");
 	f = atof(str);
-	f = frexp(f, &i);
-	if (f < 0) {
-		f = -f;
-		sign = 1;
-	}
 	if (f == 0) {
 		if (argval == 8) fprintf(codefile, ".data2 0, 0\n");
 		fprintf(codefile, ".data2 0, 0\n");
 		return;
 	}
+	f = frexp(f, &i);
+	if (f < 0) {
+		f = -f;
+		sign = 1;
+	}
 	while (f < 0.5) {
 		f += f;
 		i --;