diff options
| author | Oleg Grenrus <oleg.grenrus@iki.fi> | 2021-08-31 16:07:16 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-10-15 18:16:14 -0400 |
| commit | 88e913d443203376454b5242efa5fff0928992a8 (patch) | |
| tree | 0da963e6cbfdb078147cacc3461dd5810c5a27c9 /rts/RtsFlags.c | |
| parent | 1cda768c86e533c917a495c8de0468960cbe7a52 (diff) | |
| download | haskell-88e913d443203376454b5242efa5fff0928992a8.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 a775e2986a..0d41108822 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; |