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

Merge branch 'master' of git://factorcode.org/git/factor

db4
John Benediktsson 2008-12-06 14:58:30 -08:00
parent 3552041d49 0359ec8eac
commit dfe7c4f4fe
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/bootstrap.factor
View File

@ -329,14 +329,15 @@ big-endian on
! Math ! Math
[ [
3 ds-reg 0 LWZ 3 ds-reg 0 LWZ
4 ds-reg -4 LWZ ds-reg ds-reg 4 SUBI
4 ds-reg 0 LWZ
3 3 4 OR 3 3 4 OR
3 3 tag-mask get ANDI 3 3 tag-mask get ANDI
\ f tag-number 4 LI \ f tag-number 4 LI
0 3 0 CMPI 0 3 0 CMPI
2 BNE 2 BNE
1 tag-fixnum 4 LI 1 tag-fixnum 4 LI
4 ds-reg 4 STWU 4 ds-reg 0 STW
] f f f \ both-fixnums? define-sub-primitive ] f f f \ both-fixnums? define-sub-primitive
: jit-math ( insn -- ) : jit-math ( insn -- )