lookup-base-pointer ( vreg -- vreg/f )
Liveness analysis

Prev:	live-outs
Next:	visit-gc-root ( vreg derived-roots gc-roots -- )

Vocabulary
compiler.cfg.liveness

Inputs

vreg

vreg

Outputs

vreg/f

vreg or f

Word description
Tries to figure out what the base pointer for a vreg is. Can't use cache here because of infinite recursion inside the quotation passed to cache

See also
base-pointers

Definition

USING: assocs compiler.cfg.def-use
compiler.cfg.ssa.destruction.leaders kernel namespaces ;

IN: compiler.cfg.liveness

: lookup-base-pointer ( vreg -- vreg/f )
    base-pointers get ?at [
        f over base-pointers get set-at
        [ dup ?leader insn-of lookup-base-pointer* ] keep
        dupd base-pointers get set-at
    ] unless ;