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

View File

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