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

Fix PowerPC bootstrap

db4
Slava Pestov 2008-11-24 01:45:36 -06:00
parent 10238715f0
commit dbf52c6176
1 changed files with 10 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
basis/cpu/ppc/bootstrap.factor
View File

@ -71,28 +71,23 @@ big-endian on
[ 0 B ] rc-relative-ppc-3 rt-xt 0 jit-word-jump jit-define [ 0 B ] rc-relative-ppc-3 rt-xt 0 jit-word-jump jit-define
: jit-jump-quot ( -- )
4 3 quot-xt-offset LWZ
4 MTCTR
BCTR ;
: jit-call-quot ( -- )
4 3 quot-xt-offset LWZ
4 MTLR
BLRL ;
[ [
3 ds-reg 0 LWZ 3 ds-reg 0 LWZ
ds-reg dup 4 SUBI ds-reg dup 4 SUBI
0 3 \ f tag-number CMPI 0 3 \ f tag-number CMPI
2 BNE 2 BEQ
0 B 0 B
] rc-relative-ppc-3 rt-xt 3 jit-if-1 jit-define ] rc-relative-ppc-3 rt-xt 4 jit-if-1 jit-define
[ [
0 B 0 B
] rc-relative-ppc-3 rt-xt 0 jit-if-2 jit-define ] rc-relative-ppc-3 rt-xt 0 jit-if-2 jit-define
: jit-jump-quot ( -- )
4 3 quot-xt-offset LWZ
4 MTCTR
BCTR ;
[ [
0 3 LOAD32 0 3 LOAD32
3 3 0 LWZ 3 3 0 LWZ
@ -128,9 +123,9 @@ big-endian on
6 rs-reg -8 STW ; 6 rs-reg -8 STW ;
: jit-r> ( -- ) : jit-r> ( -- )
4 ds-reg 0 LWZ 4 rs-reg 0 LWZ
ds-reg dup 4 SUBI rs-reg dup 4 SUBI
4 rs-reg 4 STWU ; 4 ds-reg 4 STWU ;
: jit-2r> ( -- ) : jit-2r> ( -- )
4 rs-reg 0 LWZ 4 rs-reg 0 LWZ