cfg-affinities ( cfg -- affinities )

Vocabulary

compiler.cfg.register-allocation.chordal

Inputs

cfg

an object

Outputs

affinities

an object

Definition

USING: accessors assocs compiler.cfg.instructions
compiler.cfg.linearization kernel sequences ;

IN: compiler.cfg.register-allocation.chordal

:: cfg-affinities ( cfg -- affinities )
    H{ } clone :> affinities cfg cfg>insns [| insn |
        insn ##phi? [
            insn inputs>> values
            [ insn dst>> affinities add-affinity ] each
        ] [
            insn ##copy? insn ##tagged>integer? or
            [ insn src>> insn dst>> affinities add-affinity ]
            when
        ] if
    ] each affinities ;