1 ! Copyright (C) 2008, 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors kernel sequences sets arrays math strings fry
4 namespaces prettyprint compiler.cfg.linear-scan.live-intervals
5 compiler.cfg.linear-scan.allocation compiler.cfg assocs ;
6 FROM: namespaces => set ;
7 IN: compiler.cfg.linear-scan.debugger
9 : check-linear-scan ( live-intervals machine-registers -- )
11 [ clone ] map dup [ [ vreg>> ] keep ] H{ } map>assoc
15 allocate-registers drop ;
17 : picture ( uses -- str )
18 dup last 1 + CHAR: space <string>
19 [ '[ CHAR: * swap _ set-nth ] each ] keep ;
21 : interval-picture ( interval -- str )
26 : live-intervals. ( seq -- )
27 [ interval-picture ] map simple-table. ;