diff options
| author | Edsko de Vries <edsko@well-typed.com> | 2014-08-04 08:09:11 -0500 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2014-08-04 08:09:11 -0500 |
| commit | 44853a157a394bf00d1fdfff1926a6d178d8018c (patch) | |
| tree | 5abe7025377ec2357bc29ba3209fe5f4b5a7ddd2 /rts | |
| parent | f2939312851f3a328b99cc2b2743e645b6aa7bb8 (diff) | |
| download | haskell-44853a157a394bf00d1fdfff1926a6d178d8018c.tar.gz | |
Terminate in forkProcess like in real_main
Test Plan: validate
Reviewers: simonmar, austin
Reviewed By: simonmar, austin
Subscribers: phaskell, simonmar, relrod, carter
Differential Revision: https://phabricator.haskell.org/D99
GHC Trac Issues: #9377
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/Schedule.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/rts/Schedule.c b/rts/Schedule.c index 140221bd7d..ad1cffc1a5 100644 --- a/rts/Schedule.c +++ b/rts/Schedule.c @@ -1937,8 +1937,7 @@ forkProcess(HsStablePtr *entry rts_checkSchedStatus("forkProcess",cap); rts_unlock(cap); - hs_exit(); // clean up and exit - stg_exit(EXIT_SUCCESS); + shutdownHaskellAndExit(EXIT_SUCCESS, 0 /* !fastExit */); } #else /* !FORKPROCESS_PRIMOP_SUPPORTED */ barf("forkProcess#: primop not supported on this platform, sorry!\n"); |