corrected con_float

diff --git a/mach/m68020/ncg/mach.c b/mach/m68020/ncg/mach.c
index 7e039a2..0544d4b 100644 (file)
--- 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 7e039a2..0544d4b 100644 (file)
--- 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 7e039a2..0544d4b 100644 (file)
--- 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 7e039a2..0544d4b 100644 (file)
--- 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