rewrite-unbox-displaced-alien ( insn box-insn -- insns )

Vocabulary

compiler.cfg.gvn.alien

Inputs

insn	an object
box-insn	an object

Outputs

insns

an object

Definition

USING: accessors compiler.cfg.hats compiler.cfg.instructions
kernel make ;

IN: compiler.cfg.gvn.alien

: rewrite-unbox-displaced-alien ( insn box-insn -- insns )
    [
        [ dst>> ]
        [ [ base>> ] [ base-class>> ] [ displacement>> ] tri ]
        bi* [ ^^unbox-c-ptr ] dip ##add,
    ] { } make ;