From: ceriel <none@none>
Date: Tue, 25 Jul 1989 15:50:29 +0000 (+0000)
Subject: use IEEE format in floating point package
X-Git-Tag: release-5-5~2324
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=6f9afbf0d591a19b57bdec46262bfcf04ed26f50;p=ack.git

use IEEE format in floating point package
---

diff --git a/mach/m68020/ncg/mach.c b/mach/m68020/ncg/mach.c
index d289e27b5..1a07ecd90 100644
--- 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 25055f6b9..787a8c8cf 100644
--- 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 d289e27b5..1a07ecd90 100644
--- 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 25055f6b9..787a8c8cf 100644
--- 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 d289e27b5..1a07ecd90 100644
--- 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 25055f6b9..787a8c8cf 100644
--- 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 d289e27b5..1a07ecd90 100644
--- 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 25055f6b9..787a8c8cf 100644
--- 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"