diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2021-11-16 21:10:33 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@well-typed.com> | 2021-11-24 03:47:39 +0000 |
| commit | eda53c15c47d20311c1e73e4af2348ed331181eb (patch) | |
| tree | 5f4fde45a45639b37e8c2c4a4345a3516ff03283 /rts/RtsFlags.c | |
| parent | 9dcb2ad15df54e209cfae3dd1f51cf8e8d6c69d5 (diff) | |
| download | haskell-wip/linker-debug.tar.gz | |
linker: Introduce linker_verbose debug outputwip/linker-debug
This splits the -Dl RTS debug output into two distinct flags:
* `+RTS -Dl` shows errors and debug output which scales with at most
O(# objects)
* `+RTS -DL` shows debug output which scales with O(# symbols)t
Diffstat (limited to 'rts/RtsFlags.c')
| -rw-r--r-- | rts/RtsFlags.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/rts/RtsFlags.c b/rts/RtsFlags.c index 0d41108822..426f04a70c 100644 --- a/rts/RtsFlags.c +++ b/rts/RtsFlags.c @@ -199,6 +199,7 @@ void initRtsFlagsDefaults(void) RtsFlags.DebugFlags.prof = false; RtsFlags.DebugFlags.apply = false; RtsFlags.DebugFlags.linker = false; + RtsFlags.DebugFlags.linker_verbose = false; RtsFlags.DebugFlags.squeeze = false; RtsFlags.DebugFlags.hpc = false; RtsFlags.DebugFlags.sparks = false; @@ -2142,6 +2143,9 @@ static void read_debug_flags(const char* arg) case 'l': RtsFlags.DebugFlags.linker = true; break; + case 'L': + RtsFlags.DebugFlags.linker_verbose = true; + break; case 'a': RtsFlags.DebugFlags.apply = true; break; |