diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2021-12-02 20:46:59 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-12-07 06:28:59 -0500 |
| commit | 5dbdf8781cdf35799e73e270632af6aac8d92e51 (patch) | |
| tree | 9bddeca5988e21eb8b8d62d1c8767eb4aadb8df8 /rts/RtsFlags.c | |
| parent | 324772bbdec7737abe0a705fab77437c5d579704 (diff) | |
| download | haskell-5dbdf8781cdf35799e73e270632af6aac8d92e51.tar.gz | |
rts: +RTS -DL should imply +RTS -Dl
Otherwise the user may be surprised by the missing context provided by
the latter.
Diffstat (limited to 'rts/RtsFlags.c')
| -rw-r--r-- | rts/RtsFlags.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/rts/RtsFlags.c b/rts/RtsFlags.c index 426f04a70c..50de729183 100644 --- a/rts/RtsFlags.c +++ b/rts/RtsFlags.c @@ -462,6 +462,7 @@ usage_text[] = { " -Dp DEBUG: prof", " -Da DEBUG: apply", " -Dl DEBUG: linker", +" -DL DEBUG: linker (verbose)", " -Dm DEBUG: stm", " -Dz DEBUG: stack squeezing", " -Dc DEBUG: program coverage", @@ -2145,6 +2146,7 @@ static void read_debug_flags(const char* arg) break; case 'L': RtsFlags.DebugFlags.linker_verbose = true; + RtsFlags.DebugFlags.linker = true; break; case 'a': RtsFlags.DebugFlags.apply = true; |