From: bal <none@none>
Date: Tue, 6 Nov 1984 12:50:21 +0000 (+0000)
Subject: The routine con_float now generates a dummy floating point constant
X-Git-Tag: release-5-5~5985
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=d07b17ca5c19e642cd9f20b415eae08d5eae082d;p=ack.git

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 f64b8adc8..3fe8e7e5e 100644
--- 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; {