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

Vocabulary

compiler.cfg.gvn.alien

Inputs

insn

an object

Outputs

insn/f

an object

Definition

USING: accessors combinators compiler.cfg.gvn.avail
compiler.cfg.gvn.graph compiler.cfg.instructions kernel
namespaces ;

IN: compiler.cfg.gvn.alien

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