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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/mid-opt/border-ctl.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/mid-opt/border-ctl.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 136  Line 136 
136            end            end
137    
138      fun transform prog = let      fun transform prog = let
139            val IR.Program{globalInit, strand, create = IR.Create{code, ...}, update, ...} = prog            val IR.Program{globInit, strand, create = IR.Create{code, ...}, init, update, ...} = prog
140          (* transform a strand *)          (* transform a strand *)
141            fun transformStrand (IR.Strand{stateInit, initM, updateM, stabilizeM, ...}) = (            fun transformStrand (IR.Strand{stateInit, initM, updateM, stabilizeM, ...}) = (
142                  transformCFG stateInit;                  transformCFG stateInit;
# Line 145  Line 145 
145                  Option.app transformCFG stabilizeM)                  Option.app transformCFG stabilizeM)
146            in            in
147            (* NOTE: we don't process the constInit code, because it is trivial *)            (* NOTE: we don't process the constInit code, because it is trivial *)
148              transformCFG globalInit;              transformCFG globInit;
149              transformCFG code;              transformCFG code;
150              transformStrand strand;              transformStrand strand;
151                Option.app transformCFG init;
152              Option.app transformCFG update;              Option.app transformCFG update;
153              prog              prog
154            end            end

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