Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /sml/trunk/src/MLRISC/scheduling/globalDDGViewer.sml
ViewVC logotype

View of /sml/trunk/src/MLRISC/scheduling/globalDDGViewer.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 695 - (download) (annotate)
Mon Aug 7 23:57:38 2000 UTC (19 years ago) by leunga
File size: 997 byte(s)

   Stuff related to scheduling, SSA, x86, C-- and Moby.
   Tag: leunga-20000807-a-whole-bunch-of-stuff
(*
 * View a scheduler DDG constructed for basic block scheduling
 *
 * -- Allen
 *)
functor GlobalSchedulerDDGViewer
   (structure GraphViewer : GRAPH_VIEWER
    structure IR          : MLRISC_IR
    structure DDG         : SCHEDULER_DDG
    structure FormatInsn  : FORMAT_INSTRUCTION
      sharing IR.I = FormatInsn.I = DDG.I 
   ) : GLOBAL_SCHEDULER_DDG_VIEWER =
struct

   structure IR  = IR
   structure DDG = DDG
   structure I   = DDG.I
   structure L   = GraphLayout

   val edgeColor = L.COLOR "red"

   val i2s = Int.toString


   fun view IR ddg =
   let val regmap = IR.CFG.regmap IR
       val toString = FormatInsn.toString [] (I.C.lookup regmap)
   in  GraphViewer.view 
         (GraphLayout.makeLayout
           {graph = fn _ => [],
            node  = fn (_,DDG.NODE{instr,b,...}) => 
                         [L.LABEL("["^i2s b^"] "^toString instr)],
            edge  = fn (_,_,e) => [L.LABEL(DDG.edgeToString e), edgeColor]
           }
           ddg
         )
   end

end

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0