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

Fix fixnum/i-fast and fixnum/md-fast on PowerPC

db4
Slava Pestov 2008-11-24 12:01:08 -06:00
parent f2040c0529
commit d849287779
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -388,6 +388,7 @@ big-endian on
ds-reg ds-reg 4 SUBI ds-reg ds-reg 4 SUBI
4 ds-reg 0 LWZ 4 ds-reg 0 LWZ
5 4 3 DIVW 5 4 3 DIVW
5 5 tag-bits get SLWI
5 ds-reg 0 STW 5 ds-reg 0 STW
] f f f \ fixnum/i-fast define-sub-primitive ] f f f \ fixnum/i-fast define-sub-primitive
@ -397,6 +398,7 @@ big-endian on
5 4 3 DIVW 5 4 3 DIVW
6 5 3 MULLW 6 5 3 MULLW
7 6 4 SUBF 7 6 4 SUBF
5 5 tag-bits get SLWI
5 ds-reg -4 STW 5 ds-reg -4 STW
7 ds-reg 0 STW 7 ds-reg 0 STW
] f f f \ fixnum/mod-fast define-sub-primitive ] f f f \ fixnum/mod-fast define-sub-primitive