Fix PowerPC bootstrap
parent
5b4e8e9d09
commit
a14e1ebcb5
|
@ -112,9 +112,10 @@ M: ppc %jump-label ( label -- ) B ;
|
|||
M: ppc %return ( -- ) BLR ;
|
||||
|
||||
M:: ppc %dispatch ( src temp offset -- )
|
||||
0 temp LOAD32 rc-absolute-ppc-2/2 rel-here
|
||||
0 temp LOAD32
|
||||
5 offset + cells rc-absolute-ppc-2/2 rel-here
|
||||
temp temp src ADD
|
||||
temp temp 5 offset + cells LWZ
|
||||
temp temp 0 LWZ
|
||||
temp MTCTR
|
||||
BCTR ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue