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

diff --git a/compiler/codeGen/CgCallConv.hs b/compiler/codeGen/CgCallConv.hs
index 29441d6..351375d 100644
--- a/compiler/codeGen/CgCallConv.hs
+++ b/compiler/codeGen/CgCallConv.hs
@@ -64,7 +64,7 @@ import Data.Bits
 -------------------------------------------------------------------------
 
 -- bring in ARG_P, ARG_N, etc.
-#include "../includes/StgFun.h"
+#include "../includes/rts/storage/FunTypes.h"
 
 -------------------------
 argDescrType :: ArgDescr -> StgHalfWord
@@ -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.