diff options
author | Nicholas Clark <nick@ccl4.org> | 2005-09-22 14:09:37 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2005-09-22 14:09:37 +0000 |
commit | a6f6820f3c7eaca644bb35f910322669c1493ccd (patch) | |
tree | a05d55a0e07adf58886dfccc89cd8edf48931c95 /handy.h | |
parent | d41017573d33fb21203beffe95fa3f3a48c2e7e3 (diff) | |
download | perl-a6f6820f3c7eaca644bb35f910322669c1493ccd.tar.gz |
The New*() compatibility macros aren't needed inside the perl core.
p4raw-id: //depot/perl@25570
Diffstat (limited to 'handy.h')
-rw-r--r-- | handy.h | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -698,10 +698,13 @@ Malloc_t Perl_mem_log_free(Malloc_t oldalloc, const char *filename, const int li #define Newxc(v,n,t,c) (v = (MEM_WRAP_CHECK_(n,t) MEM_LOG_ALLOC(n,t,(c*)safemalloc((MEM_SIZE)((n)*sizeof(t)))))) #define Newxz(v,n,t) (v = (MEM_WRAP_CHECK_(n,t) MEM_LOG_ALLOC(n,t,(t*)safemalloc((MEM_SIZE)((n)*sizeof(t)))))), \ memzero((char*)(v), (n)*sizeof(t)) + +#ifndef PERL_CORE /* pre 5.9.x compatibility */ #define New(x,v,n,t) Newx(v,n,t) #define Newc(x,v,n,t,c) Newxc(v,n,t,c) #define Newz(x,v,n,t) Newxz(v,n,t) +#endif #define Renew(v,n,t) \ (v = (MEM_WRAP_CHECK_(n,t) MEM_LOG_REALLOC(n,t,v,(t*)saferealloc((Malloc_t)(v),(MEM_SIZE)((n)*sizeof(t)))))) |