diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2016-09-16 11:04:44 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2016-09-23 13:39:31 +0900 |
| commit | 74c4ca02df1f7099420eedf32ab4fabc0fd8cb8c (patch) | |
| tree | 4235028fba3a7938e86c291e391fed892a49c439 /rts/RtsStartup.c | |
| parent | 9cbcdb4863064753df0fff9054b7b7c6b3188b64 (diff) | |
| download | haskell-74c4ca02df1f7099420eedf32ab4fabc0fd8cb8c.tar.gz | |
Expose hs_exit_(rtsFalse) as hs_exit_nowait()
Summary: And document it. See the docmentation for the reason I want this.
Test Plan: It's an existing API, just exposing it.
Reviewers: bgamari, niteria, austin, erikd
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D2531
Diffstat (limited to 'rts/RtsStartup.c')
| -rw-r--r-- | rts/RtsStartup.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c index 33ffb83c1e..a2630b2f8f 100644 --- a/rts/RtsStartup.c +++ b/rts/RtsStartup.c @@ -455,6 +455,14 @@ hs_exit(void) // be safe; this might be a DLL } +void +hs_exit_nowait(void) +{ + hs_exit_(rtsFalse); + // do not wait for outstanding foreign calls to return; if they return in + // the future, they will block indefinitely. +} + // Compatibility interfaces void shutdownHaskell(void) |