spill-to-minimal-ranges ( interval -- )

Vocabulary

compiler.cfg.register-allocation.greedy

Inputs

interval

an object

Outputs

None

Definition

USING: accessors assocs
compiler.cfg.linear-scan.allocation.spilling kernel math
namespaces sequences ;

IN: compiler.cfg.register-allocation.greedy

:: spill-to-minimal-ranges ( interval -- )
    interval greedy-costs get delete-at interval :> remaining!
    [ remaining uses>> length 1 > ] [
        remaining remaining uses>> second n>> 1 -
        split-for-spill remaining! spill-after dup done-stage
        advance-stage greedy-enqueue
        "spill-products" greedy-count
    ] while
    remaining spill-after spill-before dup done-stage
    advance-stage greedy-enqueue "spill-products" greedy-count ;