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 4490, Sat Sep 3 01:10:16 2016 UTC revision 4491, Sat Sep 3 01:40:21 2016 UTC
# Line 231  Line 231 
231    
232      and ppStrand (out, strand) = let      and ppStrand (out, strand) = let
233            val IR.Strand{            val IR.Strand{
234                    name, params, spatialDim, state, stateInit, initM, updateM, stabilizeM                    name, params, spatialDim, state, stateInit, startM, updateM, stabilizeM
235                  } = strand                  } = strand
236            val out1 = incIndent out            val out1 = incIndent out
237            val out2 = incIndent out1            val out2 = incIndent out1
# Line 255  Line 255 
255              prln(out1, ["state init\n"]);              prln(out1, ["state init\n"]);
256              ppCFG (out2, stateInit);              ppCFG (out2, stateInit);
257              prln(out1, ["end state init\n"]);              prln(out1, ["end state init\n"]);
258              Option.app (ppMethod (out1, "initially")) initM;              Option.app (ppMethod (out1, "start")) startM;
259              ppMethod (out1, "update") updateM;              ppMethod (out1, "update") updateM;
260              Option.app (ppMethod (out1, "stabilize")) stabilizeM;              Option.app (ppMethod (out1, "stabilize")) stabilizeM;
261              prln(out, ["end ", Atom.toString name, "\n"])              prln(out, ["end ", Atom.toString name, "\n"])
# Line 263  Line 263 
263    
264      fun ppCreate (out, cr) = (      fun ppCreate (out, cr) = (
265            indent out;            indent out;
266            case Create.gridDim cr            case Create.arrayDim cr
267             of NONE => pr (out, "COLLECTION\n")             of NONE => pr (out, "COLLECTION\n")
268              | SOME dim => prl (out, ["GRID(", Int.toString dim, ")\n"])              | SOME dim => prl (out, ["GRID(", Int.toString dim, ")\n"])
269            (* end case *);            (* end case *);
# Line 286  Line 286 
286      fun output (outS, msg, prog) = let      fun output (outS, msg, prog) = let
287            val IR.Program{            val IR.Program{
288                    props, consts, inputs, globals, funcs,                    props, consts, inputs, globals, funcs,
289                    constInit, globInit, strand, create, init, update                    constInit, globInit, strand, create, start, update
290                  } = prog                  } = prog
291            val out = (outS, 0)            val out = (outS, 0)
292            val out1 = incIndent out            val out1 = incIndent out
# Line 310  Line 310 
310              ppStrand (out1, strand);              ppStrand (out1, strand);
311              pr (out, "## initial strand creation\n");              pr (out, "## initial strand creation\n");
312              ppCreate (out1, create);              ppCreate (out1, create);
313              case init              case start
314               of SOME cfg => (               of SOME cfg => (
315                    pr (out, "## global initially\n");                    pr (out, "## global start\n");
316                    ppCFG (out1, cfg))                    ppCFG (out1, cfg))
317                | NONE => ()                | NONE => ()
318              (* end case *);              (* end case *);

Legend:
Removed from v.4490  
changed lines
  Added in v.4491

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