diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-12-18 16:19:28 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-12-18 16:19:28 +0000 |
| commit | fd12b167cd246087858d50ab66840274ef609f79 (patch) | |
| tree | 8558630ebdc5d2a1d35c1c9f2cefa324639d8f5b /compiler/codeGen/CgTailCall.lhs | |
| parent | 840295515da399bd63d1ad789cda97007c96e93b (diff) | |
| download | haskell-fd12b167cd246087858d50ab66840274ef609f79.tar.gz | |
Use DynFlags to work out if we are doing ticky ticky profiling
We used to use StaticFlags
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 |