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 3878, Wed May 18 21:27:15 2016 UTC revision 3879, Thu May 19 16:03:34 2016 UTC
# Line 16  Line 16 
16    
17      val inc : IR.var -> unit      val inc : IR.var -> unit
18      val dec : IR.var -> unit      val dec : IR.var -> unit
19        val use : IR.var -> IR.var
20    
21      val incGlob : IR.global_var -> unit      val incGlob : IR.global_var -> unit
22      val decGlob : IR.global_var -> unit      val decGlob : IR.global_var -> unit
# Line 26  Line 27 
27    
28      fun inc (IR.V{useCnt, ...}) = (useCnt := !useCnt + 1)      fun inc (IR.V{useCnt, ...}) = (useCnt := !useCnt + 1)
29      fun dec (IR.V{useCnt, ...}) = (useCnt := !useCnt - 1)      fun dec (IR.V{useCnt, ...}) = (useCnt := !useCnt - 1)
30        fun use (x as IR.V{useCnt, ...}) = (useCnt := !useCnt + 1; x)
31    
32      fun incGlob (IR.GV{useCnt, ...}) = (useCnt := !useCnt + 1)      fun incGlob (IR.GV{useCnt, ...}) = (useCnt := !useCnt + 1)
33      fun decGlob (IR.GV{useCnt, ...}) = (useCnt := !useCnt - 1)      fun decGlob (IR.GV{useCnt, ...}) = (useCnt := !useCnt - 1)

Legend:
Removed from v.3878  
changed lines
  Added in v.3879

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