loop-exit-penalty ( from to -- distance )


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

Inputs
froman object
toan object


Outputs
distancean object


Definition
USING: accessors assocs compiler.cfg.loop-detection kernel
namespaces sequences sets ;

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

:: loop-exit-penalty ( from to -- distance )
loops get values [| loop |
from loop blocks>> in? to loop blocks>> in? not and
] any? loop-exit-distance 0 ? ;