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

Implement both-fixnums? sub-primitive for PowerPC

db4
Slava Pestov 2008-11-28 21:18:42 -06:00
parent d3a40ff438
commit bac609d7af
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -327,6 +327,18 @@ big-endian on
\ BLT \ fixnum< define-jit-compare \ BLT \ fixnum< define-jit-compare
! Math ! Math
[
3 ds-reg 0 LWZ
4 ds-reg -4 LWZ
3 3 4 OR
3 3 tag-mask get ANDI
\ f tag-number 4 LI
0 3 0 CMPI
2 BNE
1 tag-fixnum 4 LI
4 ds-reg 4 STWU
] f f f \ both-fixnums? define-sub-primitive
: jit-math ( insn -- ) : jit-math ( insn -- )
3 ds-reg 0 LWZ 3 ds-reg 0 LWZ
4 ds-reg -4 LWZU 4 ds-reg -4 LWZU