diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2016-10-05 23:37:03 -0400 |
|---|---|---|
| committer | Joachim Breitner <mail@joachim-breitner.de> | 2016-10-06 17:47:46 -0400 |
| commit | a2bedb5c67b8d0d20dfb22fdeac3fcd07fe5452e (patch) | |
| tree | 7639bbb62540f4c42d948b065c7183a5c20c88a3 /compiler/nativeGen/RegAlloc/Graph/Main.hs | |
| parent | 4a03012aeb4cb6685221b30aea2b1a78145d902b (diff) | |
| download | haskell-a2bedb5c67b8d0d20dfb22fdeac3fcd07fe5452e.tar.gz | |
RegAlloc: Make some pattern matched complete
these actually are complete, but due to the use of pattern guards, the
compiler does not see that. Refactor the code that it does.
Differential Revision: https://phabricator.haskell.org/D2574
Diffstat (limited to 'compiler/nativeGen/RegAlloc/Graph/Main.hs')
| -rw-r--r-- | compiler/nativeGen/RegAlloc/Graph/Main.hs | 3 |
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 |