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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/cfg-ir/dom-tree-fn.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/cfg-ir/dom-tree-fn.sml

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

revision 3789, Thu Apr 28 16:51:48 2016 UTC revision 3790, Thu Apr 28 18:57:03 2016 UTC
# Line 142  Line 142 
142                  else (                  else (
143                    pr(Nd.toString nd ^ "\n");                    pr(Nd.toString nd ^ "\n");
144                    setFn (nd, true);                    setFn (nd, true);
145                    prKids (indent, children nd);                    case children nd
146                       of [kid] => ( (* no indentation for single immediate dominator *)
147                            prIndent indent;
148                            prTree (indent, kid))
149                        | kids => prKids (indent, children nd)
150                      (* end case *);
151                    setFn (nd, false))                    setFn (nd, false))
152            and prKids (_, []) = ()            and prKids (_, []) = ()
153              | prKids (indent, [kid]) = (              | prKids (indent, [kid]) = (

Legend:
Removed from v.3789  
changed lines
  Added in v.3790

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