From: eck <none@none>
Date: Thu, 12 Apr 1990 11:35:10 +0000 (+0000)
Subject: added csa4 and csb4
X-Git-Tag: release-5-5~1743
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=90963fd58565530773bc6e91a0d98d3066b9e4fc;p=ack.git

added csa4 and csb4
---

diff --git a/mach/m68k2/cg/table b/mach/m68k2/cg/table
index 5ec8d68b0..fef2b910f 100644
--- a/mach/m68k2/cg/table
+++ b/mach/m68k2/cg/table
@@ -818,8 +818,12 @@ mli $1 == 2 | DATASCR ANY |	"muls %[2],%[1]"
 mli $1 == 2 | ANY DATASCR |	"muls %[1],%[2]"
 				erase(%[2])
 				setcc(%[2])		| %[2] | |
-ldc mli loww(1) == 1 && highw(1) == 0 && $2 == 4 | | | | |
-ldc mli loww(1) == 2 && highw(1) == 0 && $2 == 4 | | | | loc 1 sli 4 |
+loc loc cii ldc mli $1==2 && $2==4 && highw(4)==0 && loww(4)>0 && $5==4
+	    | DATASCR |		allocate(%[1],DATAREG4)
+				move(%[1],%[a.1])
+				"muls #$4,%[a]"
+				erase(%[a])
+				setcc(%[a])		| %[a] | |
 mli $1 == 4 | |			remove(ALL)
 				"jsr .mli"
 							| DD1 | |
@@ -2724,9 +2728,15 @@ bls $1 == 4 |	DATASCR4 ADDSCR ADDSCR |
 csa $1 == 2 | |			remove(ALL)
 				"jmp .csa"
 					 		| | |
+csa $1 == 4 | |			remove(ALL)
+				"jmp .csa4"
+					 		| | |
 csb $1 == 2 | |			remove(ALL)
 				"jmp .csb"
 							| | |
+csb $1 == 4 | |			remove(ALL)
+				"jmp .csb4"
+							| | |
 dch | | | | loi 4 |
 dup $1 == 2 |	ANY-REGCH2 |		|	%[1] %[1] | |
 dup $1 == 4 |	DATAREG4+ADDREG |		|	%[1] %[1] | |