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

to check long >= 0 or long < 0 it is enough to test high order word. Added.

Browse source 
anding and oring of long constants is much better now
dvu 2 and rmu 2 by positive constants is now done inline.
This commit is contained in:
sater 1984-07-19 16:50:27 +00:00
parent e20ab23a4b
commit ef248ee65e
1 changed files with 34 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
mach/pdp/cg/table
View file

@ -792,6 +792,11 @@ mlu !defined($1)| source2 |
move(%[1],r0) move(%[1],r0)
"jsr pc,mlu~" | | | "jsr pc,mlu~" | | |
#endif #endif
loc dvu $1>0 && $1<=32767 && $2==2 | source2 |
allocate(%[1],REG_PAIR)
move(%[1],%[a.2])
"clr %[a.1]"
"div $$$1,%[a.1]" | %[a.1] | |
dvu $1==2 | | remove(all) dvu $1==2 | | remove(all)
"jsr pc,dvu2~" | r0 | | "jsr pc,dvu2~" | r0 | |
dvu $1==4 | | remove(all) dvu $1==4 | | remove(all)
@ -802,6 +807,11 @@ dvu !defined($1)| source2 |
move(%[1],r0) move(%[1],r0)
"jsr pc,dvu~" | | | "jsr pc,dvu~" | | |
#endif #endif
loc rmu $1>0 && $1<=32767 && $2==2 | source2 |
allocate(%[1],REG_PAIR)
move(%[1],%[a.2])
"clr %[a.1]"
"div $$$1,%[a.1]" | %[a.2] | |
rmu $1==2 | | remove(all) rmu $1==2 | | remove(all)
"jsr pc,rmu2~" | r1 | | "jsr pc,rmu2~" | r1 | |
rmu $1==4 | | remove(all) rmu $1==4 | | remove(all)
@ -1348,6 +1358,16 @@ and $1==2 | CONST2 SCR_REG |
"bic %[1],%[2]" "bic %[1],%[2]"
setcc(%[2]) setcc(%[2])
erase(%[1]) erase(%[2]) | %[2] | | (4,600) erase(%[1]) erase(%[2]) | %[2] | | (4,600)
ldc and $2==4 && highw(1)==0 | source2 SCR_REG |
"bic $$%(~loww(1)%),%[2]"
erase(%[2]) | {CONST2, 0} %[1] | |
ldc and $2==4 && highw(1)==0-1 | source2 SCR_REG |
"bic $$%(~loww(1)%),%[2]"
erase(%[2]) | %[2] %[1] | |
ldc and $2==4 | SCR_REG SCR_REG |
"bic $$%(~highw(1)%),%[1]"
"bic $$%(~loww(1)%),%[2]"
erase(%[1]) erase(%[2]) | %[2] %[1] | |
and defined($1) | | remove(all) and defined($1) | | remove(all)
move({CONST2,$1}, r0) move({CONST2,$1}, r0)
"jsr pc,and~" "jsr pc,and~"
@ -1365,6 +1385,16 @@ ior $1==2 | SCR_REG source2 |
"bis %[1],%[2]" "bis %[1],%[2]"
setcc(%[2]) setcc(%[2])
erase(%[2]) | %[2] | | (2,450)+%[1] erase(%[2]) | %[2] | | (2,450)+%[1]
ldc ior $2==4 && highw(1)==0 | source2 SCR_REG |
"bis $$%(loww(1)%),%[2]"
erase(%[2]) | %[2] %[1] | |
ldc ior $2==4 && highw(1)==0-1 | source2 SCR_REG |
"bis $$%(loww(1)%),%[2]"
erase(%[2]) | {CONST2, 0-1} %[1] | |
ldc ior $2==4 | SCR_REG SCR_REG |
"bis $$%(highw(1)%),%[1]"
"bis $$%(loww(1)%),%[2]"
erase(%[1]) erase(%[2]) | %[2] %[1] | |
ior $1==8 | NC source2 source2 source2 source2 | ior $1==8 | NC source2 source2 source2 source2 |
remove(all) remove(all)
"bis %[1],(sp)" "bis %[1],(sp)"
@ -1631,6 +1661,10 @@ cmi $1==2 | source2 SCR_REG |
"neg %[1]" "neg %[1]"
setcc(%[1]) setcc(%[1])
erase(%[1]) | %[1] | | erase(%[1]) | %[1] | |
ldc cmi zlt highw(1)==0 && loww(1)==0 && $2==4 | source2 source2 |
| %[1] | zlt $3 |
ldc cmi zge highw(1)==0 && loww(1)==0 && $2==4 | source2 source2 |
| %[1] | zge $3 |
cmi $1==4 | | remove(all) cmi $1==4 | | remove(all)
"jsr pc,cmi4~" | r0 | | "jsr pc,cmi4~" | r0 | |
#ifdef UNTESTED #ifdef UNTESTED