steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/cpu/ppc/ppc.factor
View File

@ -112,9 +112,10 @@ M: ppc %jump-label ( label -- ) B ;
M: ppc %return ( -- ) BLR ; M: ppc %return ( -- ) BLR ;
M:: ppc %dispatch ( src temp offset -- ) 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 src ADD
temp temp 5 offset + cells LWZ temp temp 0 LWZ
temp MTCTR temp MTCTR
BCTR ; BCTR ;