diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2020-12-10 09:31:00 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-01-07 00:10:15 -0500 |
| commit | 30f7137d1acc48499840d9a106ecce6109fd8e7a (patch) | |
| tree | a7a792bf6f014b574fde8032a6f0488567dd01dc /utils | |
| parent | fb81f2edccaa8a02b0b3f68e82f0c795346e3b54 (diff) | |
| download | haskell-30f7137d1acc48499840d9a106ecce6109fd8e7a.tar.gz | |
rts: Zero shrunk array slop in vanilla RTS
But only when profiling or DEBUG are enabled.
Fixes #17572.
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/deriveConstants/Main.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/utils/deriveConstants/Main.hs b/utils/deriveConstants/Main.hs index 1c648d2e6f..c384a7058f 100644 --- a/utils/deriveConstants/Main.hs +++ b/utils/deriveConstants/Main.hs @@ -561,6 +561,8 @@ wanteds os = concat ,structField C "StgCompactNFDataBlock" "owner" ,structField C "StgCompactNFDataBlock" "next" + ,structField_ C "RtsFlags_ProfFlags_doHeapProfile" + "RTS_FLAGS" "ProfFlags.doHeapProfile" ,structField_ C "RtsFlags_ProfFlags_showCCSOnException" "RTS_FLAGS" "ProfFlags.showCCSOnException" ,structField_ C "RtsFlags_DebugFlags_apply" |