diff options
| -rw-r--r-- | rts/posix/OSThreads.c | 1 | ||||
| -rw-r--r-- | rts/win32/OSThreads.c | 1 |
2 files changed, 2 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; } diff --git a/rts/win32/OSThreads.c b/rts/win32/OSThreads.c index ad4234066b..b1a98cecbd 100644 --- a/rts/win32/OSThreads.c +++ b/rts/win32/OSThreads.c @@ -236,6 +236,7 @@ forkOS_createThreadWrapper ( void * entry ) cap = rts_lock(); rts_evalStableIO(&cap, (HsStablePtr) entry, NULL); rts_unlock(cap); + rts_done(); return 0; } |