Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/translate/analyze-simple.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/translate/analyze-simple.sml

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

revision 4569, Mon Sep 12 19:26:23 2016 UTC revision 4570, Wed Sep 14 23:41:39 2016 UTC
# Line 209  Line 209 
209                  end                  end
210              | doStm (S.S_Return x, (live, assigns)) = (addVar (x, live), assigns)              | doStm (S.S_Return x, (live, assigns)) = (addVar (x, live), assigns)
211              | doStm (S.S_Print xs, (live, assigns)) = (addList (xs, live), assigns)              | doStm (S.S_Print xs, (live, assigns)) = (addList (xs, live), assigns)
212              | doStm (S.S_MapReduce mrs, acc) = (              | doStm (S.S_MapReduce mrs, acc) = let
213                  List.app (fn (S.MapReduce{result, ...}) => markUpdate (cxt, result)) mrs;                  fun doMR (S.MapReduce{result, args, source, ...}, (live, assigns)) = (
214                  acc)                        markUpdate (cxt, result);
215    (* QUESTION: do we need to remove result from live? *)
216                          (addList(source::args, live), assigns))
217                    in
218                      List.foldl doMR acc mrs
219                    end
220              | doStm (_, acc) = acc              | doStm (_, acc) = acc
221            val (bnd, assigns) = doBlock (blk, VSet.empty)            val (bnd, assigns) = doBlock (blk, VSet.empty)
222            in            in

Legend:
Removed from v.4569  
changed lines
  Added in v.4570

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