Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/IL/dump-dot-fn.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/IL/dump-dot-fn.sml

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

revision 1555, Sun Oct 23 15:43:11 2011 UTC revision 1556, Sun Oct 23 15:43:41 2011 UTC
# Line 32  Line 32 
32      fun needNewDotNode nd = (case IL.Node.kind nd      fun needNewDotNode nd = (case IL.Node.kind nd
33             of IL.COM _ => false             of IL.COM _ => false
34              | IL.ASSIGN _ => false              | IL.ASSIGN _ => false
35                | IL.MASSIGN _ => false
36              | IL.NEW _ => false              | IL.NEW _ => false
37              | _ => true              | _ => true
38            (* end case *))            (* end case *))
# Line 75  Line 76 
76                          | IL.ASSIGN{succ, ...} =>(                          | IL.ASSIGN{succ, ...} =>(
77                              if edge then prNode(label, "box") else ();                              if edge then prNode(label, "box") else ();
78                              condEdge (!succ, l))                              condEdge (!succ, l))
79                            | IL.MASSIGN{succ, ...} =>(
80                                if edge then prNode(label, "box") else ();
81                                condEdge (!succ, l))
82                          | IL.NEW{succ, ...} =>(                          | IL.NEW{succ, ...} =>(
83                              if edge then prNode(label, "box") else ();                              if edge then prNode(label, "box") else ();
84                              condEdge (!succ, l))                              condEdge (!succ, l))

Legend:
Removed from v.1555  
changed lines
  Added in v.1556

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