 CONSTANT: scratch-reg 30
 CONSTANT: fp-scratch-reg 30
 
+M: ppc complex-addressing? f ;
+
+M: ppc fused-unboxing? f ;
+
 M: ppc %load-immediate ( reg n -- ) swap LOAD ;
 
 M: ppc %load-reference ( reg obj -- )

        } case
    ] ?if ;

M:: ppc %store-memory-imm ( src base offset rep c-type -- )
    [
        {
            { c:char   [ STB ] }

        { cc/<= [ label BGT ] }
    } case ;

: gc-root-offsets ( seq -- seq' )
    [ n>> spill@ ] map f like ;

M: ppc %call-gc ( gc-roots -- )
    3 swap gc-root-offsets %load-reference
    4 %load-vm-addr
    "inline_gc" f %alien-invoke ;

