summaryrefslogtreecommitdiff
path: root/handy.h
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2005-09-22 14:09:37 +0000
committerNicholas Clark <nick@ccl4.org>2005-09-22 14:09:37 +0000
commita6f6820f3c7eaca644bb35f910322669c1493ccd (patch)
treea05d55a0e07adf58886dfccc89cd8edf48931c95 /handy.h
parentd41017573d33fb21203beffe95fa3f3a48c2e7e3 (diff)
downloadperl-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.h3
1 files changed, 3 insertions, 0 deletions
diff --git a/handy.h b/handy.h
index dbf70d83be..69ee8d34ab 100644
--- a/handy.h
+++ b/handy.h
@@ -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))))))