Pod typos, pod2man bugs, and miscellaneous installation comments

[p5sagit/p5-mst-13.2.git] / malloc.c

diff --git a/malloc.c b/malloc.c
index 806d037..680b734 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
@@ -368,10 +367,8 @@ morecore(bucket)
                op->ov_next = (union overhead *)((caddr_t)op + siz);
                op = (union overhead *)((caddr_t)op + siz);
        }
-#if defined(USE_PERL_SBRK) || defined(OS2)
-       /* all real sbrks return zeroe-d memory, perl's sbrk doesn't guarantee this */
+       /* Not all sbrks return zeroed memory.*/
        op->ov_next = (union overhead *)NULL;
-#endif
 #ifdef PACK_MALLOC
        if (bucket == 7 - 3) {  /* Special case, explanation is above. */
            union overhead *n_op = nextf[7 - 3]->ov_next;