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 3994, Sat Jun 18 18:41:33 2016 UTC revision 3995, Sat Jun 18 20:00:19 2016 UTC
# Line 245  Line 245 
245      fun output (outS, msg, prog) = let      fun output (outS, msg, prog) = let
246            val IR.Program{            val IR.Program{
247                    props, consts, inputs, globals,                    props, consts, inputs, globals,
248                    constInit, globalInit, strand, create, update                    constInit, globInit, strand, create, init, update
249                  } = prog                  } = prog
250            val out = (outS, 0)            val out = (outS, 0)
251            val out1 = incIndent out            val out1 = incIndent out
# Line 261  Line 261 
261              List.app (ppGlobal out1) globals;              List.app (ppGlobal out1) globals;
262              pr (out, "## input initialization\n");              pr (out, "## input initialization\n");
263              ppCFG (out1, constInit);              ppCFG (out1, constInit);
264              pr (out, "## global initialization\n");              pr (out, "## global-variable initialization\n");
265              ppCFG (out1, globalInit);              ppCFG (out1, globInit);
266              pr (out, "## strand\n");              pr (out, "## strand\n");
267              ppStrand (out1, strand);              ppStrand (out1, strand);
268              pr (out, "## initial strand creation\n");              pr (out, "## initial strand creation\n");
269              ppCreate (out1, create);              ppCreate (out1, create);
270                case init
271                 of SOME cfg => (
272                      pr (out, "## global initially\n");
273                      ppCFG (out1, cfg))
274                  | NONE => ()
275                (* end case *);
276              case update              case update
277               of SOME cfg => (               of SOME cfg => (
278                    pr (out, "## global update\n");                    pr (out, "## global update\n");

Legend:
Removed from v.3994  
changed lines
  Added in v.3995

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