diff options
author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-10-03 03:11:29 +0000 |
---|---|---|
committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-10-03 03:11:29 +0000 |
commit | 8595d6f1b81ebc9a9a406558f2d0cac4743b05e9 (patch) | |
tree | 6cab552a3abbd140d041134ac7695a28a1814ae0 | |
parent | ae26f3f3856e9532d3b3bd5d2bc25ff6501db386 (diff) | |
download | perl-8595d6f1b81ebc9a9a406558f2d0cac4743b05e9.tar.gz |
Not all sbrks return zeroed memory.
-rw-r--r-- | malloc.c | 4 |
1 files changed, 1 insertions, 3 deletions
@@ -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; |