diff options
author | Ben Gamari <ben@smart-cactus.org> | 2017-09-26 15:43:47 -0400 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2017-09-26 17:42:34 -0400 |
commit | 47888fd8b40fa1db24f107ffdf12ac1673bbe650 (patch) | |
tree | 1ed62e5acd7864afd29311d4771aed9658504c4e /rts/RtsMain.c | |
parent | 30a1eeea37e224e4ade9b8e7cdd30076cb716960 (diff) | |
download | haskell-47888fd8b40fa1db24f107ffdf12ac1673bbe650.tar.gz |
Revert "Switch VEH to VCH and allow disabling of SEH completely."
Reverting to fix authorship of commit.
This reverts commit 1825cbdbdf08ed4bd6fd6794852596078953298a.
Diffstat (limited to 'rts/RtsMain.c')
-rw-r--r-- | rts/RtsMain.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/rts/RtsMain.c b/rts/RtsMain.c index 21b8577cca..c73002f63e 100644 --- a/rts/RtsMain.c +++ b/rts/RtsMain.c @@ -44,6 +44,8 @@ int hs_main ( int argc, char *argv[], // program args RtsConfig rts_config) // RTS configuration { + BEGIN_WINDOWS_VEH_HANDLER + int exit_status; SchedulerStatus status; @@ -54,9 +56,10 @@ int hs_main ( int argc, char *argv[], // program args } #endif - hs_init_ghc(&argc, &argv, rts_config); - BEGIN_WINDOWS_VEH_HANDLER + + + hs_init_ghc(&argc, &argv, rts_config); // kick off the computation by creating the main thread with a pointer // to mainIO_closure representing the computation of the overall program; |