From 5dbdf8781cdf35799e73e270632af6aac8d92e51 Mon Sep 17 00:00:00 2001 From: Ben Gamari Date: Thu, 2 Dec 2021 20:46:59 -0500 Subject: rts: +RTS -DL should imply +RTS -Dl Otherwise the user may be surprised by the missing context provided by the latter. --- docs/users_guide/runtime_control.rst | 1 + rts/RtsFlags.c | 2 ++ 2 files changed, 3 insertions(+) diff --git a/docs/users_guide/runtime_control.rst b/docs/users_guide/runtime_control.rst index 9ebc5db7f3..a51fb7f2a2 100644 --- a/docs/users_guide/runtime_control.rst +++ b/docs/users_guide/runtime_control.rst @@ -1361,6 +1361,7 @@ recommended for everyday use! .. rts-flag:: -Dp DEBUG: prof .. rts-flag:: -Da DEBUG: apply .. rts-flag:: -Dl DEBUG: linker +.. rts-flag:: -DL DEBUG: linker (verbose); implies :rts-flag:`-Dl` .. rts-flag:: -Dm DEBUG: stm .. rts-flag:: -Dz DEBUG: stack squeezing .. rts-flag:: -Dc DEBUG: program coverage 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; -- cgit v1.2.1