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

More PowerPC fixes

db4
Slava Pestov 2009-11-10 17:26:34 -06:00
parent 1002898b7d
commit 41e340f231
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/alien/c-types/c-types.factor
View File

@ -463,8 +463,8 @@ SYMBOLS:
1 >>align 1 >>align
"box_boolean" >>boxer "box_boolean" >>boxer
"to_boolean" >>unboxer "to_boolean" >>unboxer
\ bool define-primitive-type
] if ] if
\ bool define-primitive-type
<c-type> <c-type>
math:float >>class math:float >>class

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

@ -470,7 +470,7 @@ CONSTANT: rs-reg 14
[ [
3 ds-reg 0 LWZ 3 ds-reg 0 LWZ
3 3 1 SRAWI 3 3 2 SRAWI
rs-reg 3 3 LWZX rs-reg 3 3 LWZX
3 ds-reg 0 STW 3 ds-reg 0 STW
] \ get-local define-sub-primitive ] \ get-local define-sub-primitive
@ -478,7 +478,7 @@ CONSTANT: rs-reg 14
[ [
3 ds-reg 0 LWZ 3 ds-reg 0 LWZ
ds-reg ds-reg 4 SUBI ds-reg ds-reg 4 SUBI
3 3 1 SRAWI 3 3 2 SRAWI
rs-reg 3 rs-reg SUBF rs-reg 3 rs-reg SUBF
] \ drop-locals define-sub-primitive ] \ drop-locals define-sub-primitive