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

Diff of /branches/pure-cfg/src/compiler/IL/ssa-pp-fn.sml

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

revision 648, Fri Mar 18 14:45:04 2011 UTC revision 649, Fri Mar 18 15:47:56 2011 UTC
# Line 56  Line 56 
56    
57      fun labelOf (IL.ND{id, ...}) = "L"^Stamp.toString id      fun labelOf (IL.ND{id, ...}) = "L"^Stamp.toString id
58    
59      fun ppCFG (out, IL.CFG{entry, exit}) = let      fun ppCFG (out, cfg as IL.CFG{entry, exit}) = let
60            fun goto (out, nd) = if (List.length(IL.Node.preds nd) > 1)            fun goto (out, nd) = if (List.length(IL.Node.preds nd) > 1)
61                  then (                  then (
62                    prln(incIndent out, ["goto ", IL.Node.toString nd, "\n"]);                    prln(incIndent out, ["goto ", IL.Node.toString nd, "\n"]);
# Line 134  Line 134 
134                        (* end case *))                        (* end case *))
135                  end                  end
136            in            in
137              ppNd (out, false, entry)              ppNd (out, false, entry);
138              (* clear marks *)
139                IL.CFG.apply clear cfg
140            end            end
141    
142      fun ppInitially (out, IL.Initially{isArray, rangeInit, iters, create}) = let      fun ppInitially (out, IL.Initially{isArray, rangeInit, iters, create}) = let

Legend:
Removed from v.648  
changed lines
  Added in v.649

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