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

Fix PPC bootstrap

db4
Slava Pestov 2008-09-13 20:40:54 -05:00
parent 722cacddb4
commit 2305117c21
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -198,9 +198,9 @@ M: ppc %unbox-long-long ( n func -- )
M: ppc %unbox-large-struct ( n c-type -- ) M: ppc %unbox-large-struct ( n c-type -- )
! Value must be in r3 ! Value must be in r3
! Compute destination address ! Compute destination address
4 1 roll heap-size local@ ADDI 4 1 roll local@ ADDI
! Load struct size ! Load struct size
5 LI heap-size 5 LI
! Call the function ! Call the function
"to_value_struct" f %alien-invoke ; "to_value_struct" f %alien-invoke ;