greedy-evict ( interval reg -- )

Vocabulary

compiler.cfg.register-allocation.greedy

Inputs

interval	an object
reg	an object

Outputs

None

Definition

USING: accessors kernel math sequences ;

IN: compiler.cfg.register-allocation.greedy

:: greedy-evict ( interval reg -- )
    interval eviction-cascade :> cascade interval reg
    register-conflicts [| victim |
        interval victim younger-cascade?
        [ "urgent-evictions" greedy-count ] when
        victim reg hint-score 0 >
        [ "broken-hints" greedy-count ] when
        cascade victim interval-progress cascade<<
        victim greedy-unassign victim greedy-enqueue
        "evictions" greedy-count
    ] each interval reg greedy-assign ;