preference-test-graph ( mask -- graph )

Vocabulary

compiler.cfg.register-allocation.validation.color-preferences

Inputs

mask

an object

Outputs

graph

an object

Definition

USING: assocs kernel math sequences ;

IN:
compiler.cfg.register-allocation.validation.color-preferences

:: preference-test-graph ( mask -- graph )
    4 <iota> [ V{ } clone ] H{ } map>assoc
    :> graph preference-edges [| pair index |
        mask 1 index shift bitand 0 > [
            pair first2 graph at push
            pair reverse first2 graph at push
        ] when
    ] each-index graph ;