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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/low-to-tree/flatten.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/low-to-tree/flatten.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 199  Line 199 
199    
200      fun transform prog = let      fun transform prog = let
201            val IR.Program{            val IR.Program{
202                    constInit, globalInit, strand, create=IR.Create{code, ...}, update, ...                    constInit, globInit, strand, create=IR.Create{code, ...}, init, update, ...
203                  } = prog                  } = prog
204            val IR.Strand{stateInit, initM, updateM, stabilizeM, ...} = strand            val IR.Strand{stateInit, initM, updateM, stabilizeM, ...} = strand
205            in            in
206              Option.app doCFG update;              Option.app doCFG update;
207                Option.app doCFG init;
208              doCFG code;              doCFG code;
209              Option.app doCFG stabilizeM;              Option.app doCFG stabilizeM;
210              doCFG updateM;              doCFG updateM;
211              Option.app doCFG initM;              Option.app doCFG initM;
212              doCFG stateInit;              doCFG stateInit;
213              doCFG globalInit;              doCFG globInit;
214              doCFG constInit;              doCFG constInit;
215              if Controls.get Ctl.dumpLowIR              if Controls.get Ctl.dumpLowIR
216                then LowPP.output(Log.logFile(), "after flatten", prog)                then LowPP.output(Log.logFile(), "after flatten", prog)

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