diff options
author | Sylvain Henry <sylvain@haskus.fr> | 2020-05-25 19:20:25 +0200 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-07-02 20:08:36 -0400 |
commit | f08d6316d3d19b627550d99b4364e9bf0b45c329 (patch) | |
tree | 65e52dcc0b0fc940da95885e7e3e4ca5e585ce49 /compiler/GHC/Runtime | |
parent | 4d90b3ff02002ea25460d087dde56f69a9641096 (diff) | |
download | haskell-f08d6316d3d19b627550d99b4364e9bf0b45c329.tar.gz |
Replace Opt_SccProfilingOn flag with sccProfilingEnabled helper function
SCC profiling was enabled in a convoluted way: if WayProf was enabled,
Opt_SccProfilingOn general flag was set (in
`GHC.Driver.Ways.wayGeneralFlags`), and then this flag was queried in
various places.
There is no need to go via general flags, so this patch defines a
`sccProfilingEnabled :: DynFlags -> Bool` helper function that just
checks whether WayProf is enabled.
Diffstat (limited to 'compiler/GHC/Runtime')
-rw-r--r-- | compiler/GHC/Runtime/Heap/Layout.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Runtime/Heap/Layout.hs b/compiler/GHC/Runtime/Heap/Layout.hs index 4f43c13344..a092b04a22 100644 --- a/compiler/GHC/Runtime/Heap/Layout.hs +++ b/compiler/GHC/Runtime/Heap/Layout.hs @@ -282,8 +282,8 @@ fixedHdrSizeW dflags = sTD_HDR_SIZE dflags + profHdrSize dflags -- (StgProfHeader in includes\/rts\/storage\/Closures.h) profHdrSize :: DynFlags -> WordOff profHdrSize dflags - | gopt Opt_SccProfilingOn dflags = pROF_HDR_SIZE dflags - | otherwise = 0 + | sccProfilingEnabled dflags = pROF_HDR_SIZE dflags + | otherwise = 0 -- | The garbage collector requires that every closure is at least as -- big as this. |