copy-leaders ( cfg -- )

Vocabulary

compiler.cfg.register-allocation.chordal

Inputs

cfg

an object

Outputs

None

Definition

USING: accessors assocs compiler.cfg.instructions
compiler.cfg.linearization compiler.cfg.registers
compiler.cfg.ssa.destruction.leaders kernel namespaces sequences
;

IN: compiler.cfg.register-allocation.chordal

:: copy-leaders ( cfg -- )
    representations get keys [ dup ] H{ } map>assoc
    leader-map set cfg cfg>insns [| insn |
        insn ##copy? [
            insn src>> rep-of insn dst>> rep-of = [
                insn src>> leader insn dst>> leader-map get
                set-at
            ] when
        ] when
    ] each ;