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 4368, Sat Aug 6 10:36:08 2016 UTC revision 4369, Sat Aug 6 11:03:15 2016 UTC
# Line 222  Line 222 
222              prln(out, ["end ", name, "\n"])              prln(out, ["end ", name, "\n"])
223            end            end
224    
225      and ppStrand (out, IR.Strand{name, params, state, stateInit, initM, updateM, stabilizeM}) = let      and ppStrand (out, strand) = let
226              val IR.Strand{
227                      name, params, spatialDim, state, stateInit, initM, updateM, stabilizeM
228                    } = strand
229            val out1 = incIndent out            val out1 = incIndent out
230            val out2 = incIndent out1            val out2 = incIndent out1
231            fun stateVar x = let            fun stateVar x = let
# Line 235  Line 238 
238              indent out;              indent out;
239              prl(out, [              prl(out, [
240                  "strand ", Atom.toString name, " (",                  "strand ", Atom.toString name, " (",
241                  String.concatWithMap ", " typedVar params, ")\n"                  String.concatWithMap ", " typedVar params, ")"
242                ]);                ]);
243                case spatialDim
244                 of SOME d => prl(out, [" in ", Int.toString d, "D\n"])
245                  | NONE => pr(out, "\n")
246                (* end case *);
247              indent out1; pr(out1, "state:\n"); List.app stateVar state;              indent out1; pr(out1, "state:\n"); List.app stateVar state;
248              prln(out1, ["state init\n"]);              prln(out1, ["state init\n"]);
249              ppCFG (out2, stateInit);              ppCFG (out2, stateInit);

Legend:
Removed from v.4368  
changed lines
  Added in v.4369

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