merge-next-use! ( source penalty destination -- )

Vocabulary

compiler.cfg.register-allocation.chordal.spilling.next-use

Inputs

source	an object
penalty	an object
destination	an object

Outputs

None

Definition

USING: assocs kernel math math.order ;

IN: compiler.cfg.register-allocation.chordal.spilling.next-use

:: merge-next-use! ( source penalty destination -- )
    source [| value distance |
        distance penalty + :> candidate value destination at
        [ candidate min ] [ candidate ] if*
        value destination set-at
    ] assoc-each ;