From: sater <none@none>
Date: Mon, 16 Jul 1984 14:39:21 +0000 (+0000)
Subject: added special patterns for:
X-Git-Tag: release-5-5~6189
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=e2f49f412de7c39269a91eafbd9f177053593a89;p=ack.git

added special patterns for:
1) long compared to constant ( ldc cms 4 zxx )
2) long increments ( ld? ldc adi 4 sd? )
3) autoincrement loads and stores ( lol lol adp stl loi/sti )
---

diff --git a/mach/pdp/cg/table b/mach/pdp/cg/table
index c97d8be09..237794b4f 100644
--- a/mach/pdp/cg/table
+++ b/mach/pdp/cg/table
@@ -955,9 +955,29 @@ inl             | |     remove(indordef)
 			remove(locals, %[ind] <= $1 && %[ind]+%[size] > $1)
 			"inc $1(r5)"
 			setcc({LOCAL2,$1,2})          |       | |
+ldl ldc adi sdl $1==$4 && $3==4 && highw(2)==0 | |
+			remove(indordef)
+			remove(locals, %[ind] <= $1 && %[ind]+%[size] > $1)
+			"add $$%(loww(2)%),2+$1(r5)"
+			"adc $1(r5)"			 |	| |
+ldl ldc adi sdl $1==$4 && $3==4 | |
+			remove(indordef)
+			remove(locals, %[ind] <= $1 && %[ind]+%[size] > $1)
+			"add $$%(loww(2)%),2+$1(r5)"
+			"adc $1(r5)"
+			"add $$%(highw(2)%),$1(r5)"	|	| |
 ine             | |     remove(posextern)
 			"inc $1"
 			setcc({relative2,$1})           |       | |
+lde ldc adi sde $1==$4 && $3==4 && highw(2)==0 | |
+			remove(posextern)
+			"add $$%(loww(2)%),2+$1"
+			"adc $1"			|	| |
+lde ldc adi sde $1==$4 && $3==4 | |
+			remove(posextern)
+			"add $$%(loww(2)%),2+$1"
+			"adc $1"
+			"add $$%(highw(2)%),$1"		|	| |
 dec             | SCR_REG |
 			"dec %[1]"
 			setcc(%[1])     erase(%[1])     | %[1]  | |
@@ -992,6 +1012,20 @@ 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 loi $1==$2 && $2==$4 && inreg($1)==2 && $3==1 && $5==1 | |
+			allocate(REG={CONST2, 0})
+			remove(regvar($1))
+			"bisb (%(regvar($1)%))+,%[a]"	| %[a]	| |
+lol lol adp stl loi $1==$2 && $2==$4 && inreg($1)==2 && $3==2 && $5==2 | |
+			allocate(REG)
+			remove(regvar($1))
+			"mov (%(regvar($1)%))+,%[a]"	| %[a]	| |
+lol lol adp stl sti $1==$2 && $2==$4 && inreg($1)==2 && $3==1 && $5==1 | source1or2|
+			remove(regvar($1))
+			"movb %[1],(%(regvar($1)%))+"	| 	| |
+lol lol adp stl sti $1==$2 && $2==$4 && inreg($1)==2 && $3==2 && $5==2 | source2 |
+			remove(regvar($1))
+			"mov %[1],(%(regvar($1)%))+"	| 	| |
 lol lol adp stl $1==$2 && $2==$4 && inreg($1)==2 | |
 			allocate(REG=regvar($1))	| %[a] 
 							| lol $2 adp $3 stl $2 |
@@ -1586,6 +1620,27 @@ cmu !defined($1)| source2 |
 			erase(r0)                               | r0    | |
 #endif
 cms $1==2       | |             |                       | cmi $1 |
+ldc cms zeq $2==4 && loww(1)==0 && highw(1)==0 | source2 SCR_REG |
+			remove(all)
+			"bis %[1],%[2]"
+			"jeq $3"			|		| |
+ldc cms zne $2==4 && loww(1)==0 && highw(1)==0 | source2 SCR_REG |
+			remove(all)
+			"bis %[1],%[2]"
+			"jne $3"			|		| |
+ldc cms zeq $2==4	| source2 source2 |
+			remove(all)
+			"cmp $$%(loww(1)%),%[2]"
+			"bne 1f"
+			"cmp $$%(highw(1)%),%[1]"
+			"jeq $3"
+			"1:"				|		| |
+ldc cms zne $2==4	| source2 source2 |
+			remove(all)
+			"cmp $$%(loww(1)%),%[2]"
+			"jne $3"
+			"cmp $$%(highw(1)%),%[1]"
+			"jne $3"			|		| |
 cms defined($1) | |     remove(all)
 			move({CONST2,$1},r0)
 			"jsr pc,cms~"