rewrite-unbox-any-c-ptr ( insn -- insn/f )

Vocabulary

compiler.cfg.value-numbering.alien

Inputs

insn

an object

Outputs

insn/f

an object

Definition

USING: accessors combinators compiler.cfg.instructions
compiler.cfg.value-numbering.graph kernel ;

IN: compiler.cfg.value-numbering.alien

: rewrite-unbox-any-c-ptr ( insn -- insn/f )
    dup src>> vreg>insn {
        { [ dup ##box-alien? ] [ rewrite-unbox-alien ] }
        {
            [ dup ##box-displaced-alien? ]
            [ rewrite-unbox-displaced-alien ]
        }
        [ 2drop f ]
    } cond ;