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

SCM Repository

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

Diff of /branches/vis12-cl/src/compiler/IL/census-fn.sml

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

revision 2824, Mon Nov 10 17:06:01 2014 UTC revision 2825, Mon Nov 10 21:06:31 2014 UTC
# Line 62  Line 62 
62           *)           *)
63            fun incNode exitCount (IL.ND{kind, ...}) = (case kind            fun incNode exitCount (IL.ND{kind, ...}) = (case kind
64                   of IL.JOIN{phis, ...} => let                   of IL.JOIN{phis, ...} => let
65                        fun f (y, xs) = incList xs                        fun f (y, xs) = List.app (fn NONE => () | SOME x => inc x) xs
66                        in                        in
67                          List.app f (!phis)                          List.app f (!phis)
68                        end                        end

Legend:
Removed from v.2824  
changed lines
  Added in v.2825

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