X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2FcodeGen%2FCgUtils.hs;h=213b9ea4a046365b2e7e69b727b269d40c19768a;hb=41e0d3ba52422243ab4b7d38ddec95038bdd067b;hp=ee8e335c680118a4eb3f356af098531f5699df5a;hpb=0d80489c9b9f2421f65d8dd86c1e50c6bb429715;p=ghc-hetmet.git

diff --git a/compiler/codeGen/CgUtils.hs b/compiler/codeGen/CgUtils.hs
index ee8e335..213b9ea 100644
--- a/compiler/codeGen/CgUtils.hs
+++ b/compiler/codeGen/CgUtils.hs
@@ -439,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
@@ -904,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