Fix PowerPC bootstrap

db4
Slava Pestov 2008-11-13 05:55:34 -06:00
parent 5b4e8e9d09
commit a14e1ebcb5
1 changed files with 3 additions and 2 deletions

View File

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