d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

added missing #endif

Browse source 
added two patterns, big improvement
added patterns for ciu and cui
some cosmetic change
This commit is contained in:
sater 1984-07-13 16:13:56 +00:00
parent c5d95ce75d
commit 267955e114
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
mach/pdp/cg/table
View file

@ -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 |