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

SCM Repository

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

Diff of /trunk/src/compiler/IL/ssa-fn.sml

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

revision 1347, Wed Jun 15 06:50:55 2011 UTC revision 1348, Wed Jun 15 16:53:52 2011 UTC
# Line 432  Line 432 
432                      (* end case *))                      (* end case *))
433                  | _ => raise Fail "unsupported deleteNode"                  | _ => raise Fail "unsupported deleteNode"
434                (* end case *))                (* end case *))
435    (*DEBUG*)handle ex => (
436    print(concat["error in deleteNode(", Node.toString nd, ")\n"]);
437    raise ex)
438    
439        (* replace a simple node in a cfg with a subgraph *)        (* replace a simple node in a cfg with a subgraph *)
440          fun replaceNode (oldNd as ND{kind, ...}, node) = (case kind          fun replaceNode (oldNd as ND{kind, ...}, node) = (case kind
# Line 465  Line 468 
468                  Node.setSucc (x1, e2);                  Node.setSucc (x1, e2);
469                  Node.setPred (e2, x1);                  Node.setPred (e2, x1);
470                  CFG{entry = e1, exit = x2})                  CFG{entry = e1, exit = x2})
471    (*DEBUG*)handle ex => (
472    print(String.concat["error in concat({", Node.toString e1, ",", Node.toString x1,
473    "},{", Node.toString e2, ",", Node.toString x2, "})\n"]);
474    raise ex)
475    
476        (* append a node to a CFG *)        (* append a node to a CFG *)
477          fun appendNode (cfg as CFG{entry, exit}, nd) =          fun appendNode (cfg as CFG{entry, exit}, nd) =

Legend:
Removed from v.1347  
changed lines
  Added in v.1348

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