From: simonmar <unknown>
Date: Wed, 16 Feb 2005 11:33:44 +0000 (+0000)
Subject: [project @ 2005-02-16 11:33:44 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~1060
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=086accc82ef83de21f13545ae37afcf4938b3608

[project @ 2005-02-16 11:33:44 by simonmar]
wibble to previous... (*fatalInternalErrorFn)() is not expected to return.
---

diff --git a/ghc/rts/RtsMessages.c b/ghc/rts/RtsMessages.c
index b8fed78..5df2fe4 100644
--- a/ghc/rts/RtsMessages.c
+++ b/ghc/rts/RtsMessages.c
@@ -49,16 +49,7 @@ vbarf(char *s, va_list ap)
 void 
 _assertFail(char *filename, unsigned int linenum)
 {
-    internalErrorBelch("ASSERTION FAILED: file %s, line %u\n", filename, linenum);
-    abort();
-}
-
-internalErrorBelch(char *s, ...)
-{
-  va_list ap;
-  va_start(ap,s);
-  (*fatalInternalErrorFn)(s,ap);
-  va_end(ap);
+    barf("ASSERTION FAILED: file %s, line %u\n", filename, linenum);
 }
 
 void