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

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/IL/dom-tree-fn.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/IL/dom-tree-fn.sml

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

revision 1503, Mon Sep 19 17:54:12 2011 UTC revision 1504, Mon Sep 19 17:55:42 2011 UTC
# Line 66  Line 66 
66                    | IL.COM{succ, ...} => walk (ifStk, !succ)                    | IL.COM{succ, ...} => walk (ifStk, !succ)
67                    | IL.ASSIGN{succ, ...} => walk (ifStk, !succ)                    | IL.ASSIGN{succ, ...} => walk (ifStk, !succ)
68                    | IL.NEW{succ, ...} => walk (ifStk, !succ)                    | IL.NEW{succ, ...} => walk (ifStk, !succ)
69                      | IL.SAVE{succ, ...} => walk (ifStk, !succ)
70                    | IL.EXIT _ => resume ifStk                    | IL.EXIT _ => resume ifStk
71                  (* end case *))                  (* end case *))
72            and resume [] = ()            and resume [] = ()
# Line 101  Line 102 
102                | IL.COM{succ, ...} => maybeSucc succ                | IL.COM{succ, ...} => maybeSucc succ
103                | IL.ASSIGN{succ, ...} => maybeSucc succ                | IL.ASSIGN{succ, ...} => maybeSucc succ
104                | IL.NEW{succ, ...} => maybeSucc succ                | IL.NEW{succ, ...} => maybeSucc succ
105                  | IL.SAVE{succ, ...} => maybeSucc succ
106                | IL.EXIT _ => []                | IL.EXIT _ => []
107              (* end case *)              (* end case *)
108            end            end

Legend:
Removed from v.1503  
changed lines
  Added in v.1504

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