From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 22 Sep 2005 14:09:37 +0000 (+0000)
Subject: The New*() compatibility macros aren't needed inside the perl core.
X-Git-Tag: perl-5.9.3~1149
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/a6f6820f3c7eaca644bb35f910322669c1493ccd

The New*() compatibility macros aren't needed inside the perl core.

p4raw-id: //depot/perl@25570
---

diff --git a/handy.h b/handy.h
index dbf70d8..69ee8d3 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))))))