perl 5.003_04: malloc.c

A patch to perl5.003_02/malloc to give a sensible error abort() message
in ANSI C, and to give it to stderr instead of stdout.

Use config_h's STRINGIFY macro instead of pre-ANSI "p".

diff --git a/malloc.c b/malloc.c
index 806d037..f5b9f07 100644 (file)
--- a/malloc.c
+++ b/malloc.c
@@ -168,13 +168,12 @@ static    u_int nmalloc[NBUCKETS];
 #endif
 
 #ifdef DEBUGGING
-#define        ASSERT(p)   if (!(p)) botch("p"); else
+#define        ASSERT(p)   if (!(p)) botch(STRINGIFY(p));  else
 static void
 botch(s)
        char *s;
 {
-
-       printf("assertion botched: %s\n", s);
+       PerlIO_printf(PerlIO_stderr(), "assertion botched: %s\n", s);
        abort();
 }
 #else