From: sater <none@none>
Date: Fri, 13 Jul 1984 16:13:56 +0000 (+0000)
Subject: added missing #endif
X-Git-Tag: release-5-5~6192
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=267955e1143476a83ebc6c20b541fe5840adf86d;p=ack.git

added missing #endif
added two patterns, big improvement
added patterns for ciu and cui
some cosmetic change
---

diff --git a/mach/pdp/cg/table b/mach/pdp/cg/table
index 87899a138..c97d8be09 100644
--- a/mach/pdp/cg/table
+++ b/mach/pdp/cg/table
@@ -359,6 +359,9 @@ lol stf inreg($1)!=2 | xsource2 |
 			INDSTORE
 			allocate(REG={LOCAL2, $1,2})
 			move(%[1],{regind2,%[a],tostring($2)})	|    | |
+lae lol ads sti $3==2 && inreg($2)==2 |	| 
+					| {regconst2, regvar($2), $1} | sti $4 |
+#endif
 sti $1==2       | REG xsource2 |
 			INDSTORE
 			move(%[2],{regdef2,%[1]})               |       | |
@@ -989,6 +992,9 @@ lol adi stl $2==2 && $1==$3 && inreg($1)==2 | source2 |
 			remove(regvar($1))
 			"add %[1],%(regvar($1)%)"
 			erase(regvar($1))		|	| |
+lol lol adp stl $1==$2 && $2==$4 && inreg($1)==2 | |
+			allocate(REG=regvar($1))	| %[a] 
+							| lol $2 adp $3 stl $2 |
 lol adp stl $1==$3 && $2==1 && inreg($1)==2 | |
 			remove(regvar($1))
 			"inc %(regvar($1)%)"
@@ -1128,7 +1134,7 @@ zer !defined($1)| SCR_REG |
 
 #ifdef UNTESTED
 cii             | |     remove(all)
-			" jsr pc,cii~"                  |       | |
+			"jsr pc,cii~"                  |       | |
 cfi             | |             |                       | cfu   |
 cfu             | |     remove(ALL)
 			"jsr pc,cfi~"                   |       | |
@@ -1163,6 +1169,8 @@ loc loc cii $1==2 && $2==4      | source2 |
 loc loc loc cii $1>=0 && $2==2 && $3==4	| | | | loc $1 loc 0 |
 loc loc loc cii $1< 0 && $2==2 && $3==4	| | | | loc $1 loc 0-1 |
 loc loc cii $1==4 && $2==2      | source2 source2 |             | %[2]  | |
+loc loc ciu	| |		|		| loc $1 loc $2 cuu	|
+loc loc cui	| |		|		| loc $1 loc $2 cuu	|
 loc loc cuu $1==2 && $2==4      | | | {CONST2,0} | |
 loc loc cuu $1==4 && $2==2      | source2 |             |   | |
 loc loc cfi     | |             |               | loc $1 loc $2 cfu     |