 
 M: ppc %alien-invoke ( symbol dll -- )
     [ 11 ] 2dip %alien-global 11 MTLR BLRL ;
-
-M: ppc %alien-callback ( quot -- )
-    3 4 %restore-context
-    3 swap %load-reference
-    4 3 quot-entry-point-offset LWZ
-    4 MTLR
-    BLRL
-    3 4 %save-context ;
 
 M: ppc %prepare-alien-indirect ( -- )
     3 ds-reg 0 LWZ

    4 3 4 LWZ
    3 3 0 LWZ ;

M: ppc %nest-context ( -- )
    3 %load-vm-addr
    "nest_context" f %alien-invoke ;

M: ppc %unnest-context ( -- )
    3 %load-vm-addr
    "unnest_context" f %alien-invoke ;

M: ppc %unbox-small-struct ( size -- )
    heap-size cell align cell /i {


M:: ppc %restore-context ( temp1 temp2 -- )
    temp1 "ctx" %vm-field
    ds-reg temp1 "datastack" context-field-offset LWZ
    rs-reg temp1 "retainstack" context-field-offset LWZ ;

