X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcodeGen%2FCgTailCall.lhs;h=e4f79a7aa6bde56706eb66fe7ea5d47d12abfd7e;hb=0aa5f6851c493805be58da3798f6ad55b6538cf2;hp=6f8fd040cbf8bc5cee1edfea9db464511813e5ab;hpb=578467927486163fffc605880f83c7dbc952176f;p=ghc-hetmet.git

diff --git a/compiler/codeGen/CgTailCall.lhs b/compiler/codeGen/CgTailCall.lhs
index 6f8fd04..e4f79a7 100644
--- a/compiler/codeGen/CgTailCall.lhs
+++ b/compiler/codeGen/CgTailCall.lhs
@@ -108,7 +108,8 @@ performTailCall fun_info arg_amodes pending_assts
 			    | otherwise		        = noStmts
 	; EndOfBlockInfo sp _ <- getEndOfBlockInfo
 
-	; case (getCallMethod fun_name fun_has_cafs lf_info (length arg_amodes)) of
+	; dflags <- getDynFlags
+	; case (getCallMethod dflags fun_name fun_has_cafs lf_info (length arg_amodes)) of
 
 	    -- Node must always point to things we enter
 	    EnterIt -> do