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

SCM Repository

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

Diff of /trunk/src/compiler/IL/dom-tree-fn.sml

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

revision 1787, Tue Apr 3 13:23:09 2012 UTC revision 1788, Tue Apr 3 13:25:57 2012 UTC
# Line 97  Line 97 
97                | IL.ENTRY{succ} => maybeSucc succ                | IL.ENTRY{succ} => maybeSucc succ
98                | IL.JOIN{succ, ...} => maybeSucc succ                | IL.JOIN{succ, ...} => maybeSucc succ
99                | IL.COND{trueBranch, falseBranch, ...} => (case getJoin nd                | IL.COND{trueBranch, falseBranch, ...} => (case getJoin nd
100                     of SOME nd' => [!trueBranch, !falseBranch, nd']                     of SOME nd' => maybeSucc trueBranch @ maybeSucc falseBranch @ [nd']
101                      | NONE => [!trueBranch, !falseBranch]                      | NONE => [!trueBranch, !falseBranch]
102                    (* end case *))                    (* end case *))
103                | IL.COM{succ, ...} => maybeSucc succ                | IL.COM{succ, ...} => maybeSucc succ

Legend:
Removed from v.1787  
changed lines
  Added in v.1788

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