[project @ 2005-02-16 11:33:44 by simonmar]

[ghc-hetmet.git] / ghc / rts / RtsMessages.c

diff --git a/ghc/rts/RtsMessages.c b/ghc/rts/RtsMessages.c
index b8fed78..5df2fe4 100644 (file)
--- 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