diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2021-11-16 21:10:33 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-11-29 11:02:43 -0500 |
| commit | 1dc0d7af974cbd88a7aa70ba61fc0d7369a20433 (patch) | |
| tree | 378f26235a30ae893554baa530a21b5f923ddfeb /rts/RtsFlags.c | |
| parent | f67060c6dcc2ba14949ab5e8a4ffe46bceadc14f (diff) | |
| download | haskell-1dc0d7af974cbd88a7aa70ba61fc0d7369a20433.tar.gz | |
linker: Introduce linker_verbose debug output
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; |