Do conservative coalescing in register allocator

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

diff --git a/compiler/nativeGen/GraphColor.hs b/compiler/nativeGen/GraphColor.hs
index b5838c6..ecebf27 100644 (file)
--- a/compiler/nativeGen/GraphColor.hs
+++ b/compiler/nativeGen/GraphColor.hs
@@ -58,7 +58,7 @@ colorGraph colors triv spill graph0
  = let
        -- do aggressive coalesing on the graph
        (graph_coalesced, rsCoalesce)
-               = coalesceGraph graph0
+               = coalesceGraph triv graph0
 
        -- run the scanner to slurp out all the trivially colorable nodes
        (ksTriv, ksProblems)