SUN4 frexp strikes again ...

diff --git a/mach/pdp/cg/mach.c b/mach/pdp/cg/mach.c
index 7348274..e53e812 100644 (file)
--- 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 --;