Commit 44853a15 authored by Edsko de Vries's avatar Edsko de Vries Committed by Austin Seipp
Browse files

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
parent f2939312
......@@ -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");
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment