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 340, Mon Sep 13 15:34:36 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

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

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