summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPerl 5 Porters <perl5-porters@africa.nicoh.com>1996-10-03 03:11:29 +0000
committerAndy Dougherty <doughera@lafcol.lafayette.edu>1996-10-03 03:11:29 +0000
commit8595d6f1b81ebc9a9a406558f2d0cac4743b05e9 (patch)
tree6cab552a3abbd140d041134ac7695a28a1814ae0
parentae26f3f3856e9532d3b3bd5d2bc25ff6501db386 (diff)
downloadperl-8595d6f1b81ebc9a9a406558f2d0cac4743b05e9.tar.gz
Not all sbrks return zeroed memory.
-rw-r--r--malloc.c4
1 files changed, 1 insertions, 3 deletions
diff --git a/malloc.c b/malloc.c
index f5b9f076a0..680b73454b 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;