From d07b17ca5c19e642cd9f20b415eae08d5eae082d Mon Sep 17 00:00:00 2001
From: bal <none@none>
Date: Tue, 6 Nov 1984 12:50:21 +0000
Subject: [PATCH] The routine con_float now generates a dummy floating point
 constant and gives a warning, instead of generating a fatal error + abort.

---
 mach/6500/cg/mach.c | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

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");
-}
 
+con_float() {
+
+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; {