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

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/IL/census-fn.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/IL/census-fn.sml

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

revision 500, Tue Feb 1 17:40:24 2011 UTC revision 501, Tue Feb 1 22:02:37 2011 UTC
# Line 63  Line 63 
63                    | IL.NEW{args, ...} => incList args                    | IL.NEW{args, ...} => incList args
64                    | _ => ()                    | _ => ()
65                  (* end case *))                  (* end case *))
66          (* increment the counts of the variables used in an strand *)          (* increment the counts of the variables used in a strand *)
67            fun incStrand (IL.Strand{params, state, stateInit, methods, ...}) = let            fun incStrand (IL.Strand{params, state, stateInit, methods, ...}) = let
68                  fun incMethod (IL.Method{stateIn, stateOut, body, ...}) = (                  fun incMethod (IL.Method{stateIn, stateOut, body, ...}) = (
69                        List.app (fn x => setBinding(x, IL.VB_STATE_VAR)) stateIn;                        List.app (fn x => setBinding(x, IL.VB_STATE_VAR)) stateIn;

Legend:
Removed from v.500  
changed lines
  Added in v.501

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