Don't try and coalesce RealReg->RealReg moves

[ghc-hetmet.git] / compiler / nativeGen / RegAlloc / Graph / Main.hs

diff --git a/compiler/nativeGen/RegAlloc/Graph/Main.hs b/compiler/nativeGen/RegAlloc/Graph/Main.hs
index 94b18ae..d239d0d 100644 (file)
--- a/compiler/nativeGen/RegAlloc/Graph/Main.hs
+++ b/compiler/nativeGen/RegAlloc/Graph/Main.hs
@@ -311,9 +311,13 @@ graphAddCoalesce (r1, r2) graph
                (vr2, classOfVirtualReg vr2) 
                graph
 
-       | otherwise
-       = panic "RegAlloc.Graph.Main.graphAddCoalesce: can't coalesce two real regs"
-
+       -- We can't coalesce two real regs, but there could well be existing
+       --      hreg,hreg moves in the input code. We'll just ignore these
+       --      for coalescing purposes.
+       | RegReal _             <- r1
+       , RegReal _             <- r2
+       = graph
+       
 
 -- | Patch registers in code using the reg -> reg mapping in this graph.
 patchRegsFromGraph