Add coalescence edges back to the register graph

[ghc-hetmet.git] / compiler / nativeGen / GraphColor.hs

diff --git a/compiler/nativeGen/GraphColor.hs b/compiler/nativeGen/GraphColor.hs
index 934f2a7..71f7f6d 100644 (file)
--- a/compiler/nativeGen/GraphColor.hs
+++ b/compiler/nativeGen/GraphColor.hs
@@ -3,6 +3,14 @@
 --     This is a generic graph coloring library, abstracted over the type of
 --     the node keys, nodes and colors.
 --
+
+{-# OPTIONS_GHC -w #-}
+-- The above warning supression flag is a temporary kludge.
+-- While working on this module you are encouraged to remove it and fix
+-- any warnings in the module. See
+--     http://hackage.haskell.org/trac/ghc/wiki/WorkingConventions#Warnings
+-- for details
+
 module GraphColor ( 
        module GraphBase,
        module GraphOps,
@@ -144,7 +152,7 @@ selectColor colors graph u
        Just colors_avail
                        = lookupUFM colors (nodeClass node)
 
-       -- colors we can't use because they're already being used
+       -- find colors we can't use because they're already being used
        --      by a node that conflicts with this one.
        Just nsConflicts        
                        = sequence