diff options
| author | Ben Gamari <bgamari.foss@gmail.com> | 2018-01-31 21:37:21 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2018-01-31 23:29:30 -0500 |
| commit | 382c12d18f3d64e01502a5c8bbc64d4aa4842e3e (patch) | |
| tree | 3df3944952e5b619c4f3aeb0e999cd284d70c72c /rts/posix/OSThreads.c | |
| parent | 1a911f217a18c8c0362ab2bf2b6ec7f7da015622 (diff) | |
| download | haskell-382c12d18f3d64e01502a5c8bbc64d4aa4842e3e.tar.gz | |
rts: Ensure that forkOS releases Task on termination
Test Plan: validate
Reviewers: simonmar, erikd
Reviewed By: simonmar
Subscribers: rwbarton, thomie, carter
GHC Trac Issues: #14725
Differential Revision: https://phabricator.haskell.org/D4346
Diffstat (limited to 'rts/posix/OSThreads.c')
| -rw-r--r-- | rts/posix/OSThreads.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/posix/OSThreads.c b/rts/posix/OSThreads.c index e2471a223c..9cf42aa246 100644 --- a/rts/posix/OSThreads.c +++ b/rts/posix/OSThreads.c @@ -223,6 +223,7 @@ forkOS_createThreadWrapper ( void * entry ) cap = rts_lock(); rts_evalStableIO(&cap, (HsStablePtr) entry, NULL); rts_unlock(cap); + rts_done(); return NULL; } |