gen-name ( vreg -- vreg' )

Vocabulary
compiler.cfg.ssa.construction.private

Definition

USING: assocs compiler.cfg.registers kernel namespaces
sequences sets ;

IN: compiler.cfg.ssa.construction.private

: gen-name ( vreg -- vreg' )
    [ next-vreg dup ] dip dup pushed get ?adjoin
    [ stacks get push-at ] [ stacks get at set-last ] if ;