From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Thu, 3 Oct 1996 03:11:29 +0000 (+0000)
Subject: Not all sbrks return zeroed memory.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8595d6f1b81ebc9a9a406558f2d0cac4743b05e9;p=p5sagit%2Fp5-mst-13.2.git

Not all sbrks return zeroed memory.
---

diff --git a/malloc.c b/malloc.c
index f5b9f07..680b734 100644
--- a/malloc.c
+++ b/malloc.c
@@ -367,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;