bundle-split-sites ( bundle -- sites )

Vocabulary

compiler.cfg.register-allocation.backtracking

Inputs

bundle

an object

Outputs

sites

an object

Definition

USING: accessors assocs kernel math namespaces sequences sets
sorting ;

IN: compiler.cfg.register-allocation.backtracking

:: bundle-split-sites ( bundle -- sites )
    bundle intervals>> [ uses>> [ n>> ] map ] map
    concat members natural-sort [ but-last ] [ rest ] bi zip
    backtracking-phase-mode? get [
        [| pair |
            pair second dup backtracking-late-points get key?
            [ 1 - ] when 1 - :> position pair first position <=
            [ position ] [ f ] if
        ] map sift members
    ] [ [ first2 swap - 1 > ] filter [ second 1 - ] map ] if ;