add-affinity ( source-vreg destination-vreg affinities -- )

Vocabulary

compiler.cfg.register-allocation.chordal

Inputs

source-vreg	an object
destination-vreg	an object
affinities	an object

Outputs

None

Definition

USING: assocs compiler.cfg.registers
compiler.cfg.ssa.destruction.leaders cpu.architecture kernel ;

IN: compiler.cfg.register-allocation.chordal

:: add-affinity
    ( source-vreg destination-vreg affinities -- )
    source-vreg leader :> source destination-vreg leader
    :> destination source destination = [
        source rep-of reg-class-of destination rep-of
        reg-class-of = [
            source destination affinities push-at
            destination source affinities push-at
        ] when
    ] unless ;