restore-greedy-state ( snapshot -- )

Vocabulary

compiler.cfg.register-allocation.greedy

Inputs

snapshot

an object

Outputs

None

Definition

USING: accessors assocs kernel namespaces sequences ;

IN: compiler.cfg.register-allocation.greedy

:: restore-greedy-state ( snapshot -- )
    greedy-unions get values [ [ f >>reg drop ] each ] each
    snapshot unions>> dup greedy-unions set [| key intervals |
        intervals [ key second >>reg drop ] each
    ] assoc-each snapshot occupancies>> greedy-occupancies set
    snapshot vregs>> greedy-vreg-unions set
    snapshot fixed>> greedy-recolor-fixed set
    snapshot statistics>> greedy-statistics set ;