X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fwin32%2Fseh_excn.h;h=8829e840b7aa70f679d31b4ed01ccd0f97e92eb5;hb=fff1f6194c3c39de53cd645bda9865fb131b1c68;hp=7d17465cd1a2016498424736df49d80d0fe2c470;hpb=9f56cd65c4f8d57d7cde847681a7b72632c3f7fe;p=ghc-hetmet.git

diff --git a/rts/win32/seh_excn.h b/rts/win32/seh_excn.h
index 7d17465..8829e84 100644
--- a/rts/win32/seh_excn.h
+++ b/rts/win32/seh_excn.h
@@ -25,11 +25,11 @@
  *
  * seh_excn provides two macros, BEGIN_CATCH and END_CATCH, which
  * will catch such exceptions in the code they bracket and die by
- * printing a message and calling exit(1).
+ * printing a message and calling stg_exit(1).
  */
-#define ON_DIV_ZERO fprintf(stdout,"divide by zero\n"); fflush(stdout);exit(1)
-#define ON_STACK_OVERFLOW fprintf(stdout,"C stack overflow in generated code\n"); fflush(stdout); exit(1)
-#define ON_SIGSEGV fprintf(stdout,"Segmentation fault/access violation in generated code\n"); fflush(stdout); exit(1)
+#define ON_DIV_ZERO fprintf(stdout,"divide by zero\n"); fflush(stdout);stg_exit(1)
+#define ON_STACK_OVERFLOW fprintf(stdout,"C stack overflow in generated code\n"); fflush(stdout); stg_exit(1)
+#define ON_SIGSEGV fprintf(stdout,"Segmentation fault/access violation in generated code\n"); fflush(stdout); stg_exit(1)
 
 #if defined(__MINGW32__)
 extern jmp_buf seh_unwind_to;