diff options
Diffstat (limited to 'compiler/codeGen/CgTailCall.lhs')
| -rw-r--r-- | compiler/codeGen/CgTailCall.lhs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/codeGen/CgTailCall.lhs b/compiler/codeGen/CgTailCall.lhs index 6f8fd040cb..e4f79a7aa6 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 |