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

SCM Repository

[smlnj] Diff of /MLRISC/trunk/flowgraph/cfgView.sml
ViewVC logotype

Diff of /MLRISC/trunk/flowgraph/cfgView.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 984, Wed Nov 21 19:00:08 2001 UTC revision 1084, Thu Feb 21 18:52:44 2002 UTC
# Line 20  Line 20 
20     fun nl() = TextIO.output(!AsmStream.asmOutStream,"\n")     fun nl() = TextIO.output(!AsmStream.asmOutStream,"\n")
21     fun kindName CFG.START          = "START"     fun kindName CFG.START          = "START"
22       | kindName CFG.STOP           = "STOP"       | kindName CFG.STOP           = "STOP"
      | kindName CFG.HYPERBLOCK     = "Hyperblock"  
23       | kindName CFG.NORMAL         = "Block"       | kindName CFG.NORMAL         = "Block"
24    
25    
# Line 82  Line 81 
81     val red   = L.COLOR "red"     val red   = L.COLOR "red"
82     val yellow = L.COLOR "yellow"     val yellow = L.COLOR "yellow"
83    
84       val show_edge = CFG.show_edge
     fun show_edge(CFG.EDGE{k,w,a,...}) =  
        let val kind = case k of  
                          CFG.JUMP      => ""  
                       |  CFG.FALLSTHRU => "fallsthru"  
                       |  CFG.BRANCH b => Bool.toString b  
                       |  CFG.SWITCH i => Int.toString i  
                       |  CFG.ENTRY    => "entry"  
                       |  CFG.EXIT     => "exit"  
                       |  CFG.SIDEEXIT i => "sideexit("^Int.toString i^")"  
            val weight = "(" ^ W.toString (!w) ^ ")"  
        in  kind ^ weight  
        end  
85    
86     fun edgeStyle(i,j,e as CFG.EDGE{k,a,...}) =     fun edgeStyle(i,j,e as CFG.EDGE{k,a,...}) =
87     let val a = L.LABEL(show_edge e) :: getStyle a     let val a = L.LABEL(show_edge e) :: getStyle a

Legend:
Removed from v.984  
changed lines
  Added in v.1084

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