projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
77fb7b1
)
perl 5.003_04: malloc.c
author
Perl 5 Porters
<perl5-porters@africa.nicoh.com>
Thu, 29 Aug 1996 09:12:59 +0000
(09:12 +0000)
committer
Andy Dougherty
<doughera@lafcol.lafayette.edu>
Thu, 29 Aug 1996 09:12:59 +0000
(09:12 +0000)
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".
malloc.c
patch
|
blob
|
history
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