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/StgCmmBind.hs | |
| 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/StgCmmBind.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmBind.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmBind.hs b/compiler/codeGen/StgCmmBind.hs index b4415eb1f0..ee033b19c9 100644 --- a/compiler/codeGen/StgCmmBind.hs +++ b/compiler/codeGen/StgCmmBind.hs @@ -462,7 +462,8 @@ thunkCode cl_info fv_details cc node arity body ; entryHeapCheck node arity [] $ do { -- Overwrite with black hole if necessary -- but *after* the heap-overflow check - whenC (blackHoleOnEntry cl_info && node_points) + dflags <- getDynFlags + ; whenC (blackHoleOnEntry dflags cl_info && node_points) (blackHoleIt cl_info) -- Push update frame |