X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FRtsMessages.c;fp=ghc%2Frts%2FRtsMessages.c;h=a6906148f16cfa330dd7165f55543a33b472ec2e;hb=c27d86e0ab0f2876246bd592d32b9e2f3723ec53;hp=aefee4c278aba3e276b90df09702604432da10cb;hpb=0201984165ba94315a510dd4388f7b46623d95f8;p=ghc-hetmet.git

diff --git a/ghc/rts/RtsMessages.c b/ghc/rts/RtsMessages.c
index aefee4c..a690614 100644
--- a/ghc/rts/RtsMessages.c
+++ b/ghc/rts/RtsMessages.c
@@ -139,7 +139,8 @@ rtsFatalInternalErrorFn(char *s, va_list ap)
      fflush(stderr);
   }
 
-  stg_exit(EXIT_INTERNAL_ERROR);
+  abort();
+  // stg_exit(EXIT_INTERNAL_ERROR);
 }
 
 void