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 3753, Thu Apr 14 06:02:18 2016 UTC revision 3754, Thu Apr 14 22:45:39 2016 UTC
# Line 85  Line 85 
85                   of IR.JOIN _ => (                   of IR.JOIN _ => (
86                        prln(incIndent out, ["goto ", IR.Node.toString nd, "\n"]);                        prln(incIndent out, ["goto ", IR.Node.toString nd, "\n"]);
87                        ppNd (out, false, nd))                        ppNd (out, false, nd))
                   | IR.FOREACH _ =>  
                       if isMarked nd  
                         then prln(incIndent out, ["goto ", IR.Node.toString nd, "\n"])  
                         else ppNd (out, false, nd)  
88                    | _ => ppNd (out, true, nd)                    | _ => ppNd (out, true, nd)
89                  (* end case *))                  (* end case *))
90            and ppNd (out, noLabel, nd) = let            and ppNd (out, noLabel, nd) = let
# Line 150  Line 146 
146                              List.app (prPhi (incIndent out1)) (!phis);                              List.app (prPhi (incIndent out1)) (!phis);
147                              goto (out, !bodyEntry);                              goto (out, !bodyEntry);
148                              ppNd (out, false, !succ))                              ppNd (out, false, !succ))
149                            | IR.NEXT{succ, ...} =>
150                                prln (out1, ["goto ", IR.Node.toString(!succ), "\n"])
151                          | IR.COM{text, succ, ...} => (                          | IR.COM{text, succ, ...} => (
152                              List.app (fn s => prln (out1, ["//", s, "\n"])) text;                              List.app (fn s => prln (out1, ["//", s, "\n"])) text;
153                              goto (out, !succ))                              goto (out, !succ))

Legend:
Removed from v.3753  
changed lines
  Added in v.3754

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