diff options
| author | Alexander Vershilov <alexander.vershilov@gmail.com> | 2016-12-02 14:32:48 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-12-02 15:29:15 -0500 |
| commit | 895a131f6e56847d9ebca2e9bfe19a3189e49d72 (patch) | |
| tree | 0b54a54e22104ccf5b790a02448f6fb6875812a2 /testsuite/tests/rts/all.T | |
| parent | f46369b8a1bf90a3bdc30f2b566c3a7e03672518 (diff) | |
| download | haskell-895a131f6e56847d9ebca2e9bfe19a3189e49d72.tar.gz | |
Install toplevel handler inside fork.
When rts is forked it doesn't update toplevel handler, so UserInterrupt
exception is sent to Thread1 that doesn't exist in forked process.
We install toplevel handler when fork so signal will be delivered to the
new main thread.
Fixes #12903
Reviewers: simonmar, austin, erikd, bgamari
Reviewed By: bgamari
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D2770
GHC Trac Issues: #12903
Diffstat (limited to 'testsuite/tests/rts/all.T')
| -rw-r--r-- | testsuite/tests/rts/all.T | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/testsuite/tests/rts/all.T b/testsuite/tests/rts/all.T index 9c55b21341..f9c4b8ee6e 100644 --- a/testsuite/tests/rts/all.T +++ b/testsuite/tests/rts/all.T @@ -375,4 +375,5 @@ test('numa001', [ extra_run_opts('8'), extra_ways(['debug_numa']) ] test('T12497', [ unless(opsys('mingw32'), skip) ], run_command, ['$MAKE -s --no-print-directory T12497']) +test('T12903', [ when(opsys('mingw32'), skip)], compile_and_run, ['']) |