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

SCM Repository

[diderot] Diff of /trunk/src/compiler/high-il/high-opt.sml
ViewVC logotype

Diff of /trunk/src/compiler/high-il/high-opt.sml

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

revision 338, Mon Sep 13 14:49:12 2010 UTC revision 368, Fri Oct 1 18:17:34 2010 UTC
# Line 92  Line 92 
92                    | SOME rhs' => (setBinding(y, Unknown); (y, rhs'))                    | SOME rhs' => (setBinding(y, Unknown); (y, rhs'))
93                    | NONE => (y, rhs)                    | NONE => (y, rhs)
94                  (* end case *))                  (* end case *))
95            fun doNode (IL.ND{kind=IL.BLOCK{body, ...}, ...}) = body := List.map doAssign (!body)            fun doNode (IL.ND{kind=IL.BLOCK{body, ...}, ...}) =
96                    body := List.map doAssign (!body)
97              | doNode _ = ()              | doNode _ = ()
98            in            in
99              List.app doNode nodes              List.app doNode nodes
# Line 123  Line 124 
124                                    ST.tick cntUnused;                                    ST.tick cntUnused;
125                                    case rhs                                    case rhs
126                                     of IL.VAR x => decUse x                                     of IL.VAR x => decUse x
127                                        | IL.LIT _ => ()
128                                      | IL.OP(_, xs) => List.app decUse xs                                      | IL.OP(_, xs) => List.app decUse xs
129                                      | IL.CONS xs => List.app decUse xs                                      | IL.CONS xs => List.app decUse xs
130                                    (* end case *);                                    (* end case *);

Legend:
Removed from v.338  
changed lines
  Added in v.368

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