gen-name ( vreg -- vreg' )

Vocabulary

compiler.cfg.ssa.construction.private

Inputs

vreg

an object

Outputs

vreg'

an object

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 ;