Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/MLRISC/IR/mlrisc-cluster2cfg.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/IR/mlrisc-cluster2cfg.sml

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

revision 656, Fri Jun 9 03:39:04 2000 UTC revision 657, Fri Jun 9 05:20:54 2000 UTC
# Line 163  Line 163 
163    
164             fun check_for_bad_entries() =             fun check_for_bad_entries() =
165                 app (fn (i,j,e) =>                 app (fn (i,j,e) =>
166                         if j = EXIT then ()
167                         else
168                       case #in_edges cfg j of                       case #in_edges cfg j of
169                          [_] => () (* only edge from ENTRY, okay *)                          [_] => () (* only edge from ENTRY, okay *)
170                       |  _ =>                       |  _ =>
# Line 171  Line 173 
173    
174             (* add edge from entry to exit *)             (* add edge from entry to exit *)
175             fun insert_entry_to_exit () =             fun insert_entry_to_exit () =
176                   add_edge (ENTRY,EXIT,CFG.JUMP,ref 0)                 if #has_edge cfg (ENTRY,EXIT) then ()
177                   else add_edge (ENTRY,EXIT,CFG.JUMP,ref 0)
178      in      in
179          add(entry::exit::blocks,[],[]);          add(entry::exit::blocks,[],[]);
180          check_for_bad_entries();          check_for_bad_entries();

Legend:
Removed from v.656  
changed lines
  Added in v.657

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