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-archive/loop-structure.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/ir-archive/loop-structure.sml

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

revision 1094, Mon Feb 25 09:58:56 2002 UTC revision 1095, Tue Feb 26 13:20:40 2002 UTC
# Line 161  Line 161 
161     in  entryEdges     in  entryEdges
162     end     end
163    
164       fun isBackEdge(Loop as G.GRAPH L) =
165       let val dom = Dom.dominates(dom Loop)
166       in  fn (v,w) => #has_node L w andalso dom(w,v)
167       end
168  end  end
169    

Legend:
Removed from v.1094  
changed lines
  Added in v.1095

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