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/flowgraph/cfg.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/flowgraph/cfg.sml

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

revision 1158, Fri Mar 22 01:21:25 2002 UTC revision 1162, Fri Mar 22 15:16:46 2002 UTC
# Line 272  Line 272 
272          jmp          jmp
273      end      end
274    
275       local
276         fun getNode (G.GRAPH{node_info, ...}, id) = (id, node_info id)
277       in
278       fun entryId (G.GRAPH{entries, ...}) = (case entries()
279               of [id] => id
280                | _ => error "no unique entry block"
281              (* end case *))
282       fun entry cfg = getNode(cfg, entryId cfg)
283       fun exitId (G.GRAPH{exits, node_info, ...}) = (case exits()
284               of [id] => id
285                | _ => error "no unique exit block"
286              (* end case *))
287       fun exit cfg = getNode(cfg, exitId cfg)
288       end
289    
290    exception Can'tMerge    exception Can'tMerge
291    exception NotFound    exception NotFound

Legend:
Removed from v.1158  
changed lines
  Added in v.1162

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