From 0f15d797ceee52ae8fa507500d1119cc9638431a Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Fri, 3 Aug 2007 18:32:29 +0000 Subject: Catch exceptions on Windows, to stop it popping up dialog boxes Adaptated from code from Sigbjorn Finne --- rts/Main.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'rts/Main.c') diff --git a/rts/Main.c b/rts/Main.c index 745d7759de..5f16fa344a 100644 --- a/rts/Main.c +++ b/rts/Main.c @@ -16,6 +16,7 @@ #include "RtsUtils.h" #include "Prelude.h" #include "Task.h" +#include "seh_excn.h" #include #ifdef DEBUG @@ -48,6 +49,7 @@ int main(int argc, char *argv[]) SchedulerStatus status; /* all GranSim/GUM init is done in startupHaskell; sets IAmMainThread! */ + BEGIN_CATCH startupHaskell(argc,argv,__stginit_ZCMain); /* kick off the computation by creating the main thread with a pointer @@ -133,6 +135,8 @@ int main(int argc, char *argv[]) barf("main thread completed with invalid status"); } shutdownHaskellAndExit(exit_status); - return 0; /* never reached, keep gcc -Wall happy */ + END_CATCH + return 0; /* not reached unless a Windows exception happens, + also keeps gcc -Wall happy */ } # endif /* BATCH_MODE */ -- cgit v1.2.1