peek-loc ( loc -- vreg )
Local stack analysis

Next:

global-loc>local ( loc height-state -- loc' )

Vocabulary
compiler.cfg.stacks.local

Inputs

loc

a loc

Outputs

vreg	virtual register

Word description
Retrieves the virtual register at the given stack location. If no register has been stored at that location, then a new vreg is returned.

Definition

USING: assocs kernel namespaces sets ;

IN: compiler.cfg.stacks.local

: peek-loc ( loc -- vreg )
    height-state get global-loc>local
    [ replaces get at ]
    [ dup local-peek-set get adjoin loc>vreg ] ?unless ;