 M:: ppc %unbox-large-struct ( src n c-type -- )
     4 src load-param
     3 1 n local@ ADDI
-    heap-size 5 LI
+    c-type heap-size 5 LI
     "memcpy" "libc" load-library %alien-invoke ;
 
 M:: ppc %box ( dst n rep func -- )

        3 1 n local@ LWZ
        4 1 n cell + local@ LWZ
    ] when
    func f %alien-invoke
    3 dst store-param ;



M: integer load-param int-rep %copy ;

M: spill-slot load-param [ 1 ] dip n>> spill@ LWZ ;

GENERIC: store-param ( reg dst -- )

M: integer store-param swap int-rep %copy ;

M: spill-slot store-param [ 1 ] dip n>> spill@ STW ;

:: call-unbox-func ( src func -- )
    3 src load-param
