X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcodeGen%2FStgCmmExpr.hs;h=369564cba895341fcae07764b0025452fc8888eb;hb=fd12b167cd246087858d50ab66840274ef609f79;hp=47bf6c433dc8f8b72a90c24c8f6d2f36f1747af0;hpb=5892af0e08fdb890b5a0b9a64346d9f7773a6ed8;p=ghc-hetmet.git

diff --git a/compiler/codeGen/StgCmmExpr.hs b/compiler/codeGen/StgCmmExpr.hs
index 47bf6c4..369564c 100644
--- a/compiler/codeGen/StgCmmExpr.hs
+++ b/compiler/codeGen/StgCmmExpr.hs
@@ -442,8 +442,9 @@ cgLneJump blk_id lne_regs args	-- Join point; discard sequel
 		<*> mkBranch blk_id) }
     
 cgTailCall :: Id -> CgIdInfo -> [StgArg] -> FCode ()
-cgTailCall fun_id fun_info args
-  = case (getCallMethod fun_name (idCafInfo fun_id) lf_info (length args)) of
+cgTailCall fun_id fun_info args = do
+    dflags <- getDynFlags
+    case (getCallMethod dflags fun_name (idCafInfo fun_id) lf_info (length args)) of
 
 	    -- A value in WHNF, so we can just return it.
       	ReturnIt -> emitReturn [fun]	-- ToDo: does ReturnIt guarantee tagged?