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 3535, Thu Dec 24 15:45:26 2015 UTC revision 3536, Fri Dec 25 18:51:48 2015 UTC
# Line 67  Line 67 
67           *)           *)
68            fun incNode (IR.ND{kind, ...}) = (case kind            fun incNode (IR.ND{kind, ...}) = (case kind
69                   of IR.JOIN{phis, ...} => List.app incPhi (!phis)                   of IR.JOIN{phis, ...} => List.app incPhi (!phis)
70                    | IR.COND{cond, ...} => inc cond                    | IR.COND{cond, ...} => inc (!cond)
71                    | IR.FOREACH{src, phis, ...} => (                    | IR.FOREACH{src, phis, ...} => (
72                        inc src;                        inc (!src);
73                        List.app incPhi (!phis))                        List.app incPhi (!phis))
74                    | IR.ASSIGN{stm = (y, IR.GLOBAL gv), ...} => incGlob gv                    | IR.ASSIGN{stm = (y, IR.GLOBAL gv), ...} => incGlob gv
75                    | IR.ASSIGN{stm = (y, rhs), ...} => IR.RHS.app inc rhs                    | IR.ASSIGN{stm = (y, rhs), ...} => IR.RHS.app inc rhs

Legend:
Removed from v.3535  
changed lines
  Added in v.3536

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