diff options
author | Oleg Grenrus <oleg.grenrus@iki.fi> | 2021-08-31 16:07:16 +0300 |
---|---|---|
committer | Matthew Pickering <matthewtpickering@gmail.com> | 2022-02-07 15:50:47 +0000 |
commit | b9559296c5eecddb3e00d121365c179cd0063f09 (patch) | |
tree | d59a385b10a398059eeb0b68b974cd82c3edf56a /rts/RtsFlags.c | |
parent | ff6c1b8babaf4d8f1b4524a7e2d53dfc9360050e (diff) | |
download | haskell-b9559296c5eecddb3e00d121365c179cd0063f09.tar.gz |
Null eventlog writer
Diffstat (limited to 'rts/RtsFlags.c')
-rw-r--r-- | rts/RtsFlags.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/rts/RtsFlags.c b/rts/RtsFlags.c index 9de6c74825..51a40010b1 100644 --- a/rts/RtsFlags.c +++ b/rts/RtsFlags.c @@ -239,6 +239,7 @@ void initRtsFlagsDefaults(void) RtsFlags.TraceFlags.ticky = false; RtsFlags.TraceFlags.trace_output = NULL; RtsFlags.TraceFlags.eventlogFlushTime = 0; + RtsFlags.TraceFlags.nullWriter = false; #endif #if defined(PROFILING) @@ -959,6 +960,11 @@ error = true; OPTION_UNSAFE; RtsFlags.MiscFlags.generate_dump_file = true; } + else if (strequal("null-eventlog-writer", + &rts_argv[arg][2])) { + OPTION_UNSAFE; + RtsFlags.TraceFlags.nullWriter = true; + } else if (strequal("machine-readable", &rts_argv[arg][2])) { OPTION_UNSAFE; |