Follow Digraph changes in GHC; patch from Max Bolingbroke

[ghc-hetmet.git] / compiler / codeGen / CgUtils.hs

diff --git a/compiler/codeGen/CgUtils.hs b/compiler/codeGen/CgUtils.hs
index 1f44c43..213b9ea 100644 (file)
--- a/compiler/codeGen/CgUtils.hs
+++ b/compiler/codeGen/CgUtils.hs
@@ -53,6 +53,7 @@ module CgUtils (
 #include "HsVersions.h"
 #include "../includes/MachRegs.h"
 
+import BlockId
 import CgMonad
 import TyCon
 import DataCon
@@ -438,7 +439,7 @@ get_Regtable_addr_from_offset rep offset =
 #endif
 
 
--- | Returns 'True' if this global register is stored in a caller-saves
+-- | Returns @True@ if this global register is stored in a caller-saves
 -- machine register.
 
 callerSaves :: GlobalReg -> Bool
@@ -903,7 +904,7 @@ doSimultaneously1 vertices
        edges_from stmt1 = [ key2 | (key2, stmt2) <- vertices, 
                                    stmt1 `mustFollow` stmt2
                           ]
-       components = stronglyConnComp edges
+       components = stronglyConnCompFromEdgedVertices edges
 
        -- do_components deal with one strongly-connected component
        -- Not cyclic, or singleton?  Just do it