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

SCM Repository

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

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

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

revision 1867, Mon May 7 14:43:11 2012 UTC revision 1868, Fri May 11 03:17:42 2012 UTC
# Line 29  Line 29 
29            fun clearNode (IL.ND{kind, ...}) = (case kind            fun clearNode (IL.ND{kind, ...}) = (case kind
30                   of IL.JOIN{phis, ...} => List.app (fn (x, _) => clearVar x) (!phis)                   of IL.JOIN{phis, ...} => List.app (fn (x, _) => clearVar x) (!phis)
31                    | IL.ASSIGN{stm=(x, _), ...} => clearVar x                    | IL.ASSIGN{stm=(x, _), ...} => clearVar x
32              | IL.FOREACH{phis, ...} => List.app (fn (x, _) => clearVar x) (!phis)
33                    | IL.MASSIGN{stm=(xs, _, _), ...} => List.app clearVar xs                    | IL.MASSIGN{stm=(xs, _, _), ...} => List.app clearVar xs
34                    | _ => ()                    | _ => ()
35                  (* end case *))                  (* end case *))
# Line 64  Line 65 
65                          List.app f (!phis)                          List.app f (!phis)
66                        end                        end
67                    | IL.COND{cond, ...} => inc cond                    | IL.COND{cond, ...} => inc cond
68                      | IL.FOREACH{cond,stmBranch,phis,...} => let
69                          fun f (y, xs) = (
70                                setBinding (y, IL.VB_PHI xs);
71                                incList xs)
72                          in
73                    inc cond;
74                    List.app f (!phis)
75                          end
76                    | IL.ASSIGN{stm = (y, rhs), ...} => (                    | IL.ASSIGN{stm = (y, rhs), ...} => (
77                        setBinding (y, IL.VB_RHS rhs);                        setBinding (y, IL.VB_RHS rhs);
78                        IL.RHS.app inc rhs)                        IL.RHS.app inc rhs)

Legend:
Removed from v.1867  
changed lines
  Added in v.1868

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