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/CgClosure.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/CgClosure.lhs')
| -rw-r--r-- | compiler/codeGen/CgClosure.lhs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/compiler/codeGen/CgClosure.lhs b/compiler/codeGen/CgClosure.lhs index 18879a3756..56f2847052 100644 --- a/compiler/codeGen/CgClosure.lhs +++ b/compiler/codeGen/CgClosure.lhs @@ -395,8 +395,10 @@ thunkWrapper closure_info thunk_code = do -- Stack and/or heap checks ; thunkEntryChecks closure_info $ do - { -- Overwrite with black hole if necessary - whenC (blackHoleOnEntry closure_info && node_points) + { + dflags <- getDynFlags + -- Overwrite with black hole if necessary + ; whenC (blackHoleOnEntry dflags closure_info && node_points) (blackHoleIt closure_info) ; setupUpdate closure_info thunk_code } -- setupUpdate *encloses* the thunk_code |