diff options
author | Ben Gamari <ben@smart-cactus.org> | 2021-02-25 12:31:55 -0500 |
---|---|---|
committer | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2021-02-28 21:42:06 +0100 |
commit | e8aac2a2453a932eefe03b08cfb381cfb0c768d6 (patch) | |
tree | 5a043663a42fcd987ca54f98cdbdf31685ba58b9 | |
parent | 725d0d53219939f7998807122e2937bcdbfadf8c (diff) | |
download | haskell-wip/T19435.tar.gz |
rts/eventlog: Flush MainCapability buffer in non-threaded RTSwip/T19435
Previously flushEventLog failed to flush anything but the global event
buffer in the non-threaded RTS.
Fixes #19436.
-rw-r--r-- | rts/eventlog/EventLog.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/rts/eventlog/EventLog.c b/rts/eventlog/EventLog.c index ba374a71a5..ddd2cc02df 100644 --- a/rts/eventlog/EventLog.c +++ b/rts/eventlog/EventLog.c @@ -1667,6 +1667,8 @@ void flushEventLog(Capability **cap USED_IF_THREADS) stopAllCapabilitiesWith(cap, task, SYNC_FLUSH_EVENT_LOG); flushAllCapsEventsBufs(); releaseAllCapabilities(n_capabilities, cap ? *cap : NULL, task); +#else + flushLocalEventsBuf(capabilities[0]); #endif flushEventLogWriter(); } |