From: ceriel <none@none>
Date: Thu, 6 Aug 1987 12:48:27 +0000 (+0000)
Subject: added missing patterns
X-Git-Tag: release-5-5~3941
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=b80ad3f9b32c898a41525ab72ab17c2a90a6a1d1;p=ack.git

added missing patterns
---

diff --git a/mach/pdp/ncg/table b/mach/pdp/ncg/table
index 0b20d91ad..a9804a875 100644
--- a/mach/pdp/ncg/table
+++ b/mach/pdp/ncg/table
@@ -1,5 +1,7 @@
 rscid = "$Header$"
 
+#define UNTESTED
+
 EM_WSIZE=2
 EM_PSIZE=2
 EM_BSIZE=4
@@ -1606,6 +1608,20 @@ gen mov {autoinc,sp},r0
     mov {autoinc,sp},r1
     jsr pc,{label, "lar~"}
 
+#ifdef UNTESTED
+pat aar !defined($1)
+with STACK
+gen jsr pc,{label, "iaar~"}
+
+pat sar !defined($1)
+with STACK
+gen jsr pc,{label, "isar~"}
+
+pat lar !defined($1)
+with STACK
+gen jsr pc,{label, "ilar~"}
+#endif
+
 /****************************************
  * group 12 : Compare instructions      *
  ****************************************/
@@ -1643,6 +1659,12 @@ pat cms defined($1)
 with STACK
 gen move {const2,$1},r0
     jsr pc,{label, "cms~"}		yields r0
+
+pat cms !defined($1)
+with src2 STACK
+gen move %1,r0
+    jsr pc,{label, "cms~"}		yields r0
+
 pat cmp
 with src2 src2
 uses REG = {const2,0}
@@ -2058,6 +2080,16 @@ gen 1:
     mov {autoinc,%2},{autoinc,%1}
     sob %a,{label,1b}
 
+pat bls $1==2
+with REG REG REG
+gen
+	asr %1
+	beq {label,1f}
+	2:
+	mov {autoinc,%3},{autoinc,%2}
+	sob %1,{label,2b}
+	1:
+
 pat lae csa $2==2
 with src2 STACK
 gen move %1,r1