Tweak PowerPC %dispatch
parent
a14e1ebcb5
commit
eef45a1cc3
|
@ -113,9 +113,8 @@ M: ppc %return ( -- ) BLR ;
|
||||||
|
|
||||||
M:: ppc %dispatch ( src temp offset -- )
|
M:: ppc %dispatch ( src temp offset -- )
|
||||||
0 temp LOAD32
|
0 temp LOAD32
|
||||||
5 offset + cells rc-absolute-ppc-2/2 rel-here
|
4 offset + cells rc-absolute-ppc-2/2 rel-here
|
||||||
temp temp src ADD
|
temp temp src LWZX
|
||||||
temp temp 0 LWZ
|
|
||||||
temp MTCTR
|
temp MTCTR
|
||||||
BCTR ;
|
BCTR ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue