X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcodeGen%2FCgCallConv.hs;h=5fa0a85dcfd81d459db634b0fb717c4f2ee6e7b2;hb=b48fc016e9b15c465ba2c2f1d42b6221bcd19b45;hp=29441d6b03b17a51194f9ce802cc2c89a0c4387b;hpb=0aa5f6851c493805be58da3798f6ad55b6538cf2;p=ghc-hetmet.git

diff --git a/compiler/codeGen/CgCallConv.hs b/compiler/codeGen/CgCallConv.hs
index 29441d6..5fa0a85 100644
--- a/compiler/codeGen/CgCallConv.hs
+++ b/compiler/codeGen/CgCallConv.hs
@@ -408,7 +408,6 @@ allDoubleRegNos	 = regList mAX_Double_REG
 allLongRegNos	 = regList mAX_Long_REG
 
 regList :: Int -> [Int]
-regList 0 = []
 regList n = [1 .. n]
 
 type AvailRegs = ( [Int]   -- available vanilla regs.