SCM Repository
[diderot] Diff of /trunk/src/compiler/IL/dom-tree-fn.sml
Diff of /trunk/src/compiler/IL/dom-tree-fn.sml
Parent Directory
| 
Revision Log
| 
Patch
| 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.1640 |
|
| changed lines |
| |
Added in v.1788 |
|
|
