X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FPPC%2FRegs.hs;h=d6993b210bc5b204465b547fcb9418cd829e6388;hb=79607e5359a381ee5f40a5dcec313f1c94105c7b;hp=850bbf4a022c46b32b12cdef97eee0117cd0d6eb;hpb=4fb7d5bac50c9fe5572dcb1ba4146e3c68cebadb;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/PPC/Regs.hs b/compiler/nativeGen/PPC/Regs.hs
index 850bbf4..d6993b2 100644
--- a/compiler/nativeGen/PPC/Regs.hs
+++ b/compiler/nativeGen/PPC/Regs.hs
@@ -490,7 +490,7 @@ freeReg REG_Hp   = fastBool False
 #ifdef REG_HpLim
 freeReg REG_HpLim = fastBool False
 #endif
-freeReg _               = fastBool True
+freeReg n               = fastBool True
 
 
 --  | Returns 'Nothing' if this global register is not stored