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/census-fn.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/cfg-ir/census-fn.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 34  Line 34 
34    
35      fun init prog = let      fun init prog = let
36            val IR.Program{            val IR.Program{
37                    consts, inputs, globals, constInit, globalInit, strand, create, update, ...                    consts, inputs, globals, constInit, globInit, strand, create, init, update, ...
38                  } = prog                  } = prog
39            fun clearInput (Inputs.INP{var=IR.GV{useCnt, ...}, ...}) = useCnt := 1            fun clearInput (Inputs.INP{var=IR.GV{useCnt, ...}, ...}) = useCnt := 1
40            fun clearGlobal (IR.GV{useCnt, ...}) = useCnt := 0            fun clearGlobal (IR.GV{useCnt, ...}) = useCnt := 0
# Line 96  Line 96 
96              List.app clearInput inputs;              List.app clearInput inputs;
97              List.app clearGlobal globals;              List.app clearGlobal globals;
98              clearCFG constInit;              clearCFG constInit;
99              clearCFG globalInit;              clearCFG globInit;
100              clearCreate create;              clearCreate create;
101              clearStrand strand;              clearStrand strand;
102                Option.app clearCFG init;
103              Option.app clearCFG update;              Option.app clearCFG update;
104            (* then count uses *)            (* then count uses *)
105              incCFG constInit;              incCFG constInit;
106              incCFG globalInit;              incCFG globInit;
107              incCreate create;              incCreate create;
108              incStrand strand;              incStrand strand;
109                Option.app incCFG init;
110              Option.app incCFG update              Option.app incCFG update
111            end            end
112    

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