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

core/cpu/ppc cleanup

release
U-SLAVA-FB3999113\Slava 2007-10-13 00:57:40 -04:00
parent de7e596622
commit 8d358ea370
1 changed files with 3 additions and 10 deletions
core/cpu/ppc

13
core/cpu/ppc/bootstrap.factor Normal file → Executable file
View File

@ -62,6 +62,7 @@ big-endian on
] { } make jit-word-primitive-call set
: load-xt ( -- )
word-reg scan-reg 4 LWZU ! load word and advance
xt-reg word-reg word-xt@ LWZ ;
: jit-call
@ -74,17 +75,9 @@ big-endian on
: jit-jump
xt-reg MTCTR BCTR ;
[
word-reg scan-reg 4 LWZU ! load word and advance
load-xt
jit-call
] { } make jit-word-call set
[ load-xt jit-call ] { } make jit-word-call set
[
word-reg scan-reg 4 LWZ ! load word
load-xt ! jump to word XT
jit-jump
] { } make jit-word-jump set
[ load-xt jit-jump ] { } make jit-word-jump set
: load-branch
temp-reg ds-reg 0 LWZ ! load boolean