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

Fix PPC make-image

db4
Slava Pestov 2009-04-30 04:00:44 -05:00
parent 515c619202
commit 8c01b79d06
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -62,7 +62,7 @@ CONSTANT: rs-reg 30
[ 0 BL rc-relative-ppc-3 rt-xt-direct jit-rel ] jit-word-call jit-define [ 0 BL rc-relative-ppc-3 rt-xt-direct jit-rel ] jit-word-call jit-define
[ 0 B rc-relative-ppc-3 rt-xt ] jit-word-jump jit-define [ 0 B rc-relative-ppc-3 rt-xt jit-rel ] jit-word-jump jit-define
[ [
3 ds-reg 0 LWZ 3 ds-reg 0 LWZ
@ -139,19 +139,19 @@ CONSTANT: rs-reg 30
[ [
jit->r jit->r
0 BL rc-relative-ppc-3 rt-xt 0 BL rc-relative-ppc-3 rt-xt jit-rel
jit-r> jit-r>
] jit-dip jit-define ] jit-dip jit-define
[ [
jit-2>r jit-2>r
0 BL rc-relative-ppc-3 rt-xt 0 BL rc-relative-ppc-3 rt-xt jit-rel
jit-2r> jit-2r>
] jit-2dip jit-define ] jit-2dip jit-define
[ [
jit-3>r jit-3>r
0 BL rc-relative-ppc-3 rt-xt 0 BL rc-relative-ppc-3 rt-xt jit-rel
jit-3r> jit-3r>
] jit-3dip jit-define ] jit-3dip jit-define
@ -306,7 +306,7 @@ CONSTANT: rs-reg 30
! Comparisons ! Comparisons
: jit-compare ( insn -- ) : jit-compare ( insn -- )
0 3 LOAD32 0 3 LOAD32 rc-absolute-ppc-2/2 rt-immediate jit-rel
4 ds-reg 0 LWZ 4 ds-reg 0 LWZ
5 ds-reg -4 LWZU 5 ds-reg -4 LWZU
5 0 4 CMP 5 0 4 CMP
@ -315,8 +315,7 @@ CONSTANT: rs-reg 30
3 ds-reg 0 STW ; 3 ds-reg 0 STW ;
: define-jit-compare ( insn word -- ) : define-jit-compare ( insn word -- )
[ [ jit-compare ] curry rc-absolute-ppc-2/2 rt-immediate 1 ] dip [ [ jit-compare ] curry ] dip define-sub-primitive ;
define-sub-primitive ;
\ BEQ \ eq? define-jit-compare \ BEQ \ eq? define-jit-compare
\ BGE \ fixnum>= define-jit-compare \ BGE \ fixnum>= define-jit-compare