From: ceriel <none@none>
Date: Fri, 6 Nov 1987 13:12:21 +0000 (+0000)
Subject: corrected con_float
X-Git-Tag: release-5-5~3743
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=028beaf5e6c5e8615554510f958a9f6b89a4034b;p=ack.git

corrected con_float
---

diff --git a/mach/m68020/ncg/mach.c b/mach/m68020/ncg/mach.c
index 7e039a26d..0544d4b60 100644
--- a/mach/m68020/ncg/mach.c
+++ b/mach/m68020/ncg/mach.c
@@ -88,7 +88,7 @@ con_float() {
 		p = (char *) &f;
 	}
 	fprintf(codefile, ".data1 0%o", *p++ & 0377);
-	for (i = argval-2; i; i--) {
+	for (i = argval-1; i; i--) {
 		fprintf(codefile,",0%o", *p++ & 0377);
 	}
 #else OWNFLOAT
diff --git a/mach/m68k2/ncg/mach.c b/mach/m68k2/ncg/mach.c
index 7e039a26d..0544d4b60 100644
--- a/mach/m68k2/ncg/mach.c
+++ b/mach/m68k2/ncg/mach.c
@@ -88,7 +88,7 @@ con_float() {
 		p = (char *) &f;
 	}
 	fprintf(codefile, ".data1 0%o", *p++ & 0377);
-	for (i = argval-2; i; i--) {
+	for (i = argval-1; i; i--) {
 		fprintf(codefile,",0%o", *p++ & 0377);
 	}
 #else OWNFLOAT
diff --git a/mach/m68k4/ncg/mach.c b/mach/m68k4/ncg/mach.c
index 7e039a26d..0544d4b60 100644
--- a/mach/m68k4/ncg/mach.c
+++ b/mach/m68k4/ncg/mach.c
@@ -88,7 +88,7 @@ con_float() {
 		p = (char *) &f;
 	}
 	fprintf(codefile, ".data1 0%o", *p++ & 0377);
-	for (i = argval-2; i; i--) {
+	for (i = argval-1; i; i--) {
 		fprintf(codefile,",0%o", *p++ & 0377);
 	}
 #else OWNFLOAT
diff --git a/mach/moon3/ncg/mach.c b/mach/moon3/ncg/mach.c
index 7e039a26d..0544d4b60 100644
--- a/mach/moon3/ncg/mach.c
+++ b/mach/moon3/ncg/mach.c
@@ -88,7 +88,7 @@ con_float() {
 		p = (char *) &f;
 	}
 	fprintf(codefile, ".data1 0%o", *p++ & 0377);
-	for (i = argval-2; i; i--) {
+	for (i = argval-1; i; i--) {
 		fprintf(codefile,",0%o", *p++ & 0377);
 	}
 #else OWNFLOAT