From 083d520d381ca30a87dbcf1ef50bc7942f1b39a7 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Wed, 20 Apr 1988 14:42:04 +0000
Subject: [PATCH] SUN4 frexp strikes again ...

---
 mach/pdp/cg/mach.c | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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 --;
-- 
2.34.1