summaryrefslogtreecommitdiff
path: root/compiler/nativeGen/RegAlloc/Graph/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/nativeGen/RegAlloc/Graph/Main.hs')
-rw-r--r--compiler/nativeGen/RegAlloc/Graph/Main.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/compiler/nativeGen/RegAlloc/Graph/Main.hs b/compiler/nativeGen/RegAlloc/Graph/Main.hs
index 97c2b42e82..e819fe8870 100644
--- a/compiler/nativeGen/RegAlloc/Graph/Main.hs
+++ b/compiler/nativeGen/RegAlloc/Graph/Main.hs
@@ -360,6 +360,9 @@ graphAddCoalesce (r1, r2) graph
, RegReal _ <- r2
= graph
+ | otherwise
+ = panic "graphAddCoalesce"
+
-- | Patch registers in code using the reg -> reg mapping in this graph.
patchRegsFromGraph