summaryrefslogtreecommitdiff
path: root/rts/RtsMain.c
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2017-09-26 15:43:47 -0400
committerBen Gamari <ben@smart-cactus.org>2017-09-26 17:42:34 -0400
commit47888fd8b40fa1db24f107ffdf12ac1673bbe650 (patch)
tree1ed62e5acd7864afd29311d4771aed9658504c4e /rts/RtsMain.c
parent30a1eeea37e224e4ade9b8e7cdd30076cb716960 (diff)
downloadhaskell-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.c7
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;