diff options
| author | Flaviu Andrei Csernik <fcsernik@gmail.com> | 2016-03-23 16:18:11 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-03-24 10:53:27 +0100 |
| commit | 2708c22b8c8a415446d963575c0396a038b43a93 (patch) | |
| tree | b19e6bffe5fca316108a7437c874447c10787a92 /rts/RtsStartup.c | |
| parent | 997312b04c56017197250096d61f3e8fab502319 (diff) | |
| download | haskell-2708c22b8c8a415446d963575c0396a038b43a93.tar.gz | |
Close ticky profiling file stream after printing (#9405)
Test Plan: T9405
Reviewers: simonmar, austin, bgamari
Reviewed By: simonmar, bgamari
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D2008
GHC Trac Issues: #9405
Diffstat (limited to 'rts/RtsStartup.c')
| -rw-r--r-- | rts/RtsStartup.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c index bd6a6ae14a..4b9d9471ee 100644 --- a/rts/RtsStartup.c +++ b/rts/RtsStartup.c @@ -408,6 +408,9 @@ hs_exit_(rtsBool wait_foreign) #if defined(TICKY_TICKY) if (RtsFlags.TickyFlags.showTickyStats) PrintTickyInfo(); + + FILE *tf = RtsFlags.TickyFlags.tickyFile; + if (tf != NULL) fclose(tf); #endif #if defined(mingw32_HOST_OS) && !defined(THREADED_RTS) |