basis/compiler/cfg/linear-scan/debugger/debugger.factor

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