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-moved/reducibility.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/ir-moved/reducibility.sml

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

revision 640, Tue May 9 02:33:09 2000 UTC revision 641, Thu May 11 01:16:45 2000 UTC
# Line 20  Line 20 
20         fun markIrreducible([_],_) = () (* simple cycles are reducible *)         fun markIrreducible([_],_) = () (* simple cycles are reducible *)
21           | markIrreducible(cycle,_) =           | markIrreducible(cycle,_) =
22             app (fn n => BitSet.set(irreducible,n)) cycle             app (fn n => BitSet.set(irreducible,n)) cycle
23         val _ = GraphSCC.strong_components Derived markIrreducible ()         val _ = GraphSCC.scc Derived markIrreducible ()
24         fun isReducible n =         fun isReducible n =
25         let val h = Array.sub(headers,n)         let val h = Array.sub(headers,n)
26         in  not(BitSet.contains(irreducible,n)) end         in  not(BitSet.contains(irreducible,n)) end

Legend:
Removed from v.640  
changed lines
  Added in v.641

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