diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-03-26 17:53:56 +0300 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-03-29 08:55:21 +0000 |
| commit | 7e337ee0bc836d3147f3b2579c7e35127637e377 (patch) | |
| tree | c29b93e66e8deb1fbf7132063cb81a86f7671650 /util.c | |
| parent | 5247441a32fa99437809b483eb208756c7ad2401 (diff) | |
| download | perl-7e337ee0bc836d3147f3b2579c7e35127637e377.tar.gz | |
re-[PATCH] Re: [PATCH] Poison now in two different flavours!
Message-ID: <442680D4.3000809@gmail.com>
p4raw-id: //depot/perl@27626
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -99,7 +99,7 @@ Perl_safesysmalloc(MEM_SIZE size) #endif #ifdef PERL_POISON - Poison(((char *)ptr), size, char); + PoisonNew(((char *)ptr), size, char); #endif #ifdef PERL_TRACK_MEMPOOL @@ -165,7 +165,7 @@ Perl_safesysrealloc(Malloc_t where,MEM_SIZE size) if (header->size > size) { const MEM_SIZE freed_up = header->size - size; char *start_of_freed = ((char *)where) + size; - Poison(start_of_freed, freed_up, char); + PoisonFree(start_of_freed, freed_up, char); } header->size = size; # endif @@ -190,7 +190,7 @@ Perl_safesysrealloc(Malloc_t where,MEM_SIZE size) if (header->size < size) { const MEM_SIZE fresh = size - header->size; char *start_of_fresh = ((char *)ptr) + size; - Poison(start_of_fresh, fresh, char); + PoisonNew(start_of_fresh, fresh, char); } # endif @@ -241,7 +241,7 @@ Perl_safesysfree(Malloc_t where) header->next->prev = header->prev; header->prev->next = header->next; # ifdef PERL_POISON - Poison(where, header->size, char); + PoisonNew(where, header->size, char); # endif /* Trigger the duplicate free warning. */ header->next = NULL; |