From 4e022e7e4d9ff4f5e87f5667bbaed2dfbcda2a09 Mon Sep 17 00:00:00 2001
From: Richard Tucker <rit@harlequin.com>
Date: Fri, 26 Sep 1997 15:04:43 +0100
Subject: [PATCH] Allow breakpoint on abort

Copied from Perforce
 Change: 18846
 ServerID: perforce.ravenbrook.com
---
 mps/qa/test/testlib/testlib.c | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/mps/qa/test/testlib/testlib.c b/mps/qa/test/testlib/testlib.c
index e61a8bf4894..10fd1f56908 100644
--- a/mps/qa/test/testlib/testlib.c
+++ b/mps/qa/test/testlib/testlib.c
@@ -150,13 +150,17 @@ void error(const char *format, ...)
  va_end(args);
 }
 
+static void myabort(void) {
+ abort();
+}
+
 void verror(const char *format, va_list args)
 {
  fprintf(stdout, "%% ERROR \n!error=true\n");
  fprintf(stdout, "!errtext=");
  vfprintf(stdout, format, args);
  fprintf(stdout, "\n");
- abort();
+ myabort();
 }
 
 /* asserts(1=0, "Axiom violation.");
@@ -175,7 +179,7 @@ void asserts(int expr, const char *format, ...)
   vfprintf(stdout, format, args);
   fprintf(stdout, "\n");
   va_end(args);
-  abort();
+  myabort();
  }
 }