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/ssa-pp-fn.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/cfg-ir/ssa-pp-fn.sml

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

revision 3508, Fri Dec 18 14:19:30 2015 UTC revision 3509, Fri Dec 18 15:01:54 2015 UTC
# Line 86  Line 86 
86                   of IR.JOIN _ => (                   of IR.JOIN _ => (
87                        prln(incIndent out, ["goto ", IR.Node.toString nd, "\n"]);                        prln(incIndent out, ["goto ", IR.Node.toString nd, "\n"]);
88                        ppNd (out, false, nd))                        ppNd (out, false, nd))
89                      | IR.FOREACH _ =>
90                          if isMarked nd
91                            then prln(incIndent out, ["goto ", IR.Node.toString nd, "\n"])
92                            else ppNd (out, false, nd)
93                    | _ => ppNd (out, true, nd)                    | _ => ppNd (out, true, nd)
94                  (* end case *))                  (* end case *))
95            and ppNd (out, noLabel, nd) = let            and ppNd (out, noLabel, nd) = let
# Line 146  Line 150 
150                                ]);                                ]);
151                              List.app (prPhi (incIndent out1)) (!phis);                              List.app (prPhi (incIndent out1)) (!phis);
152                              goto (out, !bodyEntry);                              goto (out, !bodyEntry);
153                              goto (out, !succ))                              ppNd (out, false, !succ))
154                          | IR.COM{text, succ, ...} => (                          | IR.COM{text, succ, ...} => (
155                              List.app (fn s => prln (out1, ["//", s, "\n"])) text;                              List.app (fn s => prln (out1, ["//", s, "\n"])) text;
156                              goto (out, !succ))                              goto (out, !succ))

Legend:
Removed from v.3508  
changed lines
  Added in v.3509

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