 
 SYMBOL: live-intervals
 
-: live-interval ( vreg -- live-interval )
+: vreg>live-interval ( vreg -- live-interval )
     leader live-intervals get [ <live-interval> ] cache ;
 
 : interval-reg-class ( live-interval -- reg-class )


: handle-live-out ( bb -- )
    [ from get to get ] dip live-out keys
    [ live-interval ranges>> add-range ] 2with each ;

: compute-live-intervals-step ( bb -- )
    {

! Copyright (C) 2008, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs binary-search combinators compiler.cfg.def-use
compiler.cfg.instructions compiler.cfg.linear-scan.ranges
compiler.cfg.linearization compiler.cfg.liveness
compiler.cfg.registers compiler.cfg.ssa.destruction.leaders
cpu.architecture fry kernel locals math math.order namespaces
sequences vectors ;
IN: compiler.cfg.linear-scan.live-intervals

TUPLE: vreg-use n def-rep use-rep spill-slot? ;
