The routine con_float now generates a dummy floating point constant

and gives a warning, instead of generating a fatal error + abort.

diff --git a/mach/6500/cg/mach.c b/mach/6500/cg/mach.c
index f64b8ad..3fe8e7e 100644 (file)
--- a/mach/6500/cg/mach.c
+++ b/mach/6500/cg/mach.c
@@ -26,10 +26,21 @@ con_mult(sz) word sz; {
        fprintf(codefile,".short\t%d\n",(int) (l >> 16));
 }
 
+
 con_float() {
-       fatal("no reals");
-}
 
+static int been_here;
+       if (argval != 4 && argval != 8)
+               fatal("bad fcon size");
+       fprintf(codefile,".long\t");
+       if (argval == 8)
+               fprintf(codefile,"F_DUM,");
+       fprintf(codefile,"F_DUM\n");
+       if ( !been_here++)
+       {
+       fprintf(stderr,"Warning : dummy float-constant(s)\n");
+       }
+}
 
 prolog(nlocals) full nlocals; {