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/ssa-fn.sml
ViewVC logotype

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

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

revision 604, Fri Mar 11 18:48:58 2011 UTC revision 605, Fri Mar 11 18:49:33 2011 UTC
# Line 441  Line 441 
441                  | ENTRY _ => raise Fail("setPred on ENTRY node " ^ toString nd0)                  | ENTRY _ => raise Fail("setPred on ENTRY node " ^ toString nd0)
442                  | JOIN{preds, ...} => if List.exists (fn nd' => same(nd, nd')) (!preds)                  | JOIN{preds, ...} => if List.exists (fn nd' => same(nd, nd')) (!preds)
443                      then ()                      then ()
444                      else preds := nd :: !preds                      else preds := !preds @ [nd]  (* assume preds are added in order *)
445                  | COND{pred, ...} => pred := nd                  | COND{pred, ...} => pred := nd
446                  | COM{pred, ...} => pred := nd                  | COM{pred, ...} => pred := nd
447                  | ASSIGN{pred, ...} => pred := nd                  | ASSIGN{pred, ...} => pred := nd

Legend:
Removed from v.604  
changed lines
  Added in v.605

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