bundle-site-weights ( bundle position -- before after )

Vocabulary

compiler.cfg.register-allocation.backtracking

Inputs

bundle	an object
position	an object

Outputs

before	an object
after	an object

Definition

USING: accessors compiler.cfg.register-allocation.spill-sites
kernel math sequences sorting ;

IN: compiler.cfg.register-allocation.backtracking

:: bundle-site-weights ( bundle position -- before after )
    bundle intervals>> [ uses>> ] map concat [ n>> ] sort-by
    [ n>> position <= ] partition
    [ last spill-site-weight ] [ first spill-site-weight ] bi* ;