X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FMain.c;h=5f16fa344ab730686095fb663af40cdeeb5c517c;hb=d4050431de1adddedb240e497f77f89301f77070;hp=745d7759def2b99d14fd4d8dca79703c9027189c;hpb=48aefd90f74b4c9522eacdf9a730e50a1dfa29f9;p=ghc-hetmet.git

diff --git a/rts/Main.c b/rts/Main.c
index 745d775..5f16fa3 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 <stdlib.h>
 
 #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 */