use IEEE format in floating point package

diff --git a/mach/m68020/ncg/mach.c b/mach/m68020/ncg/mach.c
index d289e27..1a07ecd 100644 (file)
--- a/mach/m68020/ncg/mach.c
+++ b/mach/m68020/ncg/mach.c
@@ -40,7 +40,7 @@ con_mult(sz) word sz; {
        fprintf(codefile,".data4 %s\n",str);
 }
 
-#define ACKFLOAT 1
+#define IEEEFLOAT 1
 #include <con_float>
 
 regscore(off,size,typ,score,totyp)

diff --git a/mach/m68020/ncg/table b/mach/m68020/ncg/table
index 25055f6..787a8c8 100644 (file)
--- a/mach/m68020/ncg/table
+++ b/mach/m68020/ncg/table
@@ -3189,18 +3189,10 @@ pat dvf $1==4   leaving  cal ".dvf4" asp 4
 pat dvf $1==8  leaving  cal ".dvf8" asp 8
 pat ngf $1==4  leaving  cal ".ngf4"
 pat ngf $1==8  leaving  cal ".ngf8"
-pat fif $1==4  leaving  cal ".fif4"
-pat fif $1==8  leaving  cal ".fif8"
-pat fef $1==4  leaving  dup 4 cal ".fef4"
-pat fef $1==8
-       kills ALL
-       gen
-           move_l {post_inc4, sp}, d0
-           move_l {post_inc4, sp}, d1
-           move_l d0, {pre_dec4, sp}
-           move_l d1, {pre_dec4, sp}
-           move_l d0, {pre_dec4, sp}
-               leaving cal ".fef8"
+pat fif $1==4  leaving  lor 1 cal ".fif4" asp 4
+pat fif $1==8  leaving  lor 1 cal ".fif8" asp 4
+pat fef $1==4  leaving  lor 1 adp 0-4 cal ".fef4"
+pat fef $1==8  leaving  lor 1 adp 0-4 cal ".fef8"
 #endif
 
 /************************************************
@@ -3653,8 +3645,8 @@ pat loc loc cif   $1==4 && $2==4 leaving loc 4 cal ".cif4" asp 4
 pat loc loc cif        $1==4 && $2==8 leaving loc 4 cal ".cif8"
 pat loc loc cuf        $1==4 && $2==4 leaving loc 4 cal ".cuf4" asp 4
 pat loc loc cuf        $1==4 && $2==8 leaving loc 4 cal ".cuf8"
-pat loc loc cfi        leaving loc $1 loc $2 cal ".cfi" asp 8+($1-4)
-pat loc loc cfu        leaving loc $1 loc $2 cal ".cfu" asp 8+($1-4)
+pat loc loc cfi        leaving loc $1 loc $2 cal ".cfi" asp $1+4
+pat loc loc cfu        leaving loc $1 loc $2 cal ".cfu" asp $1+4
 pat loc loc cff        $1==8 && $2==4 leaving cal ".cff4" asp 4
 pat loc loc cff        $1==4 && $2==8
        leaving loc 0 exg 4 cal ".cff8"

diff --git a/mach/m68k2/ncg/mach.c b/mach/m68k2/ncg/mach.c
index d289e27..1a07ecd 100644 (file)
--- a/mach/m68k2/ncg/mach.c
+++ b/mach/m68k2/ncg/mach.c
@@ -40,7 +40,7 @@ con_mult(sz) word sz; {
        fprintf(codefile,".data4 %s\n",str);
 }
 
-#define ACKFLOAT 1
+#define IEEEFLOAT 1
 #include <con_float>
 
 regscore(off,size,typ,score,totyp)

diff --git a/mach/m68k2/ncg/table b/mach/m68k2/ncg/table
index 25055f6..787a8c8 100644 (file)
--- a/mach/m68k2/ncg/table
+++ b/mach/m68k2/ncg/table
@@ -3189,18 +3189,10 @@ pat dvf $1==4   leaving  cal ".dvf4" asp 4
 pat dvf $1==8  leaving  cal ".dvf8" asp 8
 pat ngf $1==4  leaving  cal ".ngf4"
 pat ngf $1==8  leaving  cal ".ngf8"
-pat fif $1==4  leaving  cal ".fif4"
-pat fif $1==8  leaving  cal ".fif8"
-pat fef $1==4  leaving  dup 4 cal ".fef4"
-pat fef $1==8
-       kills ALL
-       gen
-           move_l {post_inc4, sp}, d0
-           move_l {post_inc4, sp}, d1
-           move_l d0, {pre_dec4, sp}
-           move_l d1, {pre_dec4, sp}
-           move_l d0, {pre_dec4, sp}
-               leaving cal ".fef8"
+pat fif $1==4  leaving  lor 1 cal ".fif4" asp 4
+pat fif $1==8  leaving  lor 1 cal ".fif8" asp 4
+pat fef $1==4  leaving  lor 1 adp 0-4 cal ".fef4"
+pat fef $1==8  leaving  lor 1 adp 0-4 cal ".fef8"
 #endif
 
 /************************************************
@@ -3653,8 +3645,8 @@ pat loc loc cif   $1==4 && $2==4 leaving loc 4 cal ".cif4" asp 4
 pat loc loc cif        $1==4 && $2==8 leaving loc 4 cal ".cif8"
 pat loc loc cuf        $1==4 && $2==4 leaving loc 4 cal ".cuf4" asp 4
 pat loc loc cuf        $1==4 && $2==8 leaving loc 4 cal ".cuf8"
-pat loc loc cfi        leaving loc $1 loc $2 cal ".cfi" asp 8+($1-4)
-pat loc loc cfu        leaving loc $1 loc $2 cal ".cfu" asp 8+($1-4)
+pat loc loc cfi        leaving loc $1 loc $2 cal ".cfi" asp $1+4
+pat loc loc cfu        leaving loc $1 loc $2 cal ".cfu" asp $1+4
 pat loc loc cff        $1==8 && $2==4 leaving cal ".cff4" asp 4
 pat loc loc cff        $1==4 && $2==8
        leaving loc 0 exg 4 cal ".cff8"

diff --git a/mach/m68k4/ncg/mach.c b/mach/m68k4/ncg/mach.c
index d289e27..1a07ecd 100644 (file)
--- a/mach/m68k4/ncg/mach.c
+++ b/mach/m68k4/ncg/mach.c
@@ -40,7 +40,7 @@ con_mult(sz) word sz; {
        fprintf(codefile,".data4 %s\n",str);
 }
 
-#define ACKFLOAT 1
+#define IEEEFLOAT 1
 #include <con_float>
 
 regscore(off,size,typ,score,totyp)

diff --git a/mach/m68k4/ncg/table b/mach/m68k4/ncg/table
index 25055f6..787a8c8 100644 (file)
--- a/mach/m68k4/ncg/table
+++ b/mach/m68k4/ncg/table
@@ -3189,18 +3189,10 @@ pat dvf $1==4   leaving  cal ".dvf4" asp 4
 pat dvf $1==8  leaving  cal ".dvf8" asp 8
 pat ngf $1==4  leaving  cal ".ngf4"
 pat ngf $1==8  leaving  cal ".ngf8"
-pat fif $1==4  leaving  cal ".fif4"
-pat fif $1==8  leaving  cal ".fif8"
-pat fef $1==4  leaving  dup 4 cal ".fef4"
-pat fef $1==8
-       kills ALL
-       gen
-           move_l {post_inc4, sp}, d0
-           move_l {post_inc4, sp}, d1
-           move_l d0, {pre_dec4, sp}
-           move_l d1, {pre_dec4, sp}
-           move_l d0, {pre_dec4, sp}
-               leaving cal ".fef8"
+pat fif $1==4  leaving  lor 1 cal ".fif4" asp 4
+pat fif $1==8  leaving  lor 1 cal ".fif8" asp 4
+pat fef $1==4  leaving  lor 1 adp 0-4 cal ".fef4"
+pat fef $1==8  leaving  lor 1 adp 0-4 cal ".fef8"
 #endif
 
 /************************************************
@@ -3653,8 +3645,8 @@ pat loc loc cif   $1==4 && $2==4 leaving loc 4 cal ".cif4" asp 4
 pat loc loc cif        $1==4 && $2==8 leaving loc 4 cal ".cif8"
 pat loc loc cuf        $1==4 && $2==4 leaving loc 4 cal ".cuf4" asp 4
 pat loc loc cuf        $1==4 && $2==8 leaving loc 4 cal ".cuf8"
-pat loc loc cfi        leaving loc $1 loc $2 cal ".cfi" asp 8+($1-4)
-pat loc loc cfu        leaving loc $1 loc $2 cal ".cfu" asp 8+($1-4)
+pat loc loc cfi        leaving loc $1 loc $2 cal ".cfi" asp $1+4
+pat loc loc cfu        leaving loc $1 loc $2 cal ".cfu" asp $1+4
 pat loc loc cff        $1==8 && $2==4 leaving cal ".cff4" asp 4
 pat loc loc cff        $1==4 && $2==8
        leaving loc 0 exg 4 cal ".cff8"

diff --git a/mach/moon3/ncg/mach.c b/mach/moon3/ncg/mach.c
index d289e27..1a07ecd 100644 (file)
--- a/mach/moon3/ncg/mach.c
+++ b/mach/moon3/ncg/mach.c
@@ -40,7 +40,7 @@ con_mult(sz) word sz; {
        fprintf(codefile,".data4 %s\n",str);
 }
 
-#define ACKFLOAT 1
+#define IEEEFLOAT 1
 #include <con_float>
 
 regscore(off,size,typ,score,totyp)

diff --git a/mach/moon3/ncg/table b/mach/moon3/ncg/table
index 25055f6..787a8c8 100644 (file)
--- a/mach/moon3/ncg/table
+++ b/mach/moon3/ncg/table
@@ -3189,18 +3189,10 @@ pat dvf $1==4   leaving  cal ".dvf4" asp 4
 pat dvf $1==8  leaving  cal ".dvf8" asp 8
 pat ngf $1==4  leaving  cal ".ngf4"
 pat ngf $1==8  leaving  cal ".ngf8"
-pat fif $1==4  leaving  cal ".fif4"
-pat fif $1==8  leaving  cal ".fif8"
-pat fef $1==4  leaving  dup 4 cal ".fef4"
-pat fef $1==8
-       kills ALL
-       gen
-           move_l {post_inc4, sp}, d0
-           move_l {post_inc4, sp}, d1
-           move_l d0, {pre_dec4, sp}
-           move_l d1, {pre_dec4, sp}
-           move_l d0, {pre_dec4, sp}
-               leaving cal ".fef8"
+pat fif $1==4  leaving  lor 1 cal ".fif4" asp 4
+pat fif $1==8  leaving  lor 1 cal ".fif8" asp 4
+pat fef $1==4  leaving  lor 1 adp 0-4 cal ".fef4"
+pat fef $1==8  leaving  lor 1 adp 0-4 cal ".fef8"
 #endif
 
 /************************************************
@@ -3653,8 +3645,8 @@ pat loc loc cif   $1==4 && $2==4 leaving loc 4 cal ".cif4" asp 4
 pat loc loc cif        $1==4 && $2==8 leaving loc 4 cal ".cif8"
 pat loc loc cuf        $1==4 && $2==4 leaving loc 4 cal ".cuf4" asp 4
 pat loc loc cuf        $1==4 && $2==8 leaving loc 4 cal ".cuf8"
-pat loc loc cfi        leaving loc $1 loc $2 cal ".cfi" asp 8+($1-4)
-pat loc loc cfu        leaving loc $1 loc $2 cal ".cfu" asp 8+($1-4)
+pat loc loc cfi        leaving loc $1 loc $2 cal ".cfi" asp $1+4
+pat loc loc cfu        leaving loc $1 loc $2 cal ".cfu" asp $1+4
 pat loc loc cff        $1==8 && $2==4 leaving cal ".cff4" asp 4
 pat loc loc cff        $1==4 && $2==8
        leaving loc 0 exg 4 cal ".cff8"