summaryrefslogtreecommitdiff
path: root/proto.h
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2010-04-29 16:11:15 +0100
committerNicholas Clark <nick@ccl4.org>2010-04-29 16:11:15 +0100
commit5c5ade3ee4e783409153da7ec47110c6bb74a89b (patch)
treeaafe965da558d4cb8befab2ebeaf823de86c80d5 /proto.h
parent36c2b1d054d816a24315524ae15e6e339a59c766 (diff)
downloadperl-5c5ade3ee4e783409153da7ec47110c6bb74a89b.tar.gz
Deprecate Perl_ptr_table_clear(). Nothing outside sv.c uses it.
Inline the necessary parts of Perl_ptr_table_clear() into Perl_ptr_table_free(). No need to reset memory to zero that is about to be freed anyway.
Diffstat (limited to 'proto.h')
-rw-r--r--proto.h4
1 files changed, 3 insertions, 1 deletions
diff --git a/proto.h b/proto.h
index 9f897830f8..bbb1e3ae12 100644
--- a/proto.h
+++ b/proto.h
@@ -4299,7 +4299,9 @@ PERL_CALLCONV void Perl_ptr_table_split(pTHX_ PTR_TBL_t *const tbl)
#define PERL_ARGS_ASSERT_PTR_TABLE_SPLIT \
assert(tbl)
-PERL_CALLCONV void Perl_ptr_table_clear(pTHX_ PTR_TBL_t *const tbl);
+PERL_CALLCONV void Perl_ptr_table_clear(pTHX_ PTR_TBL_t *const tbl)
+ __attribute__deprecated__;
+
PERL_CALLCONV void Perl_ptr_table_free(pTHX_ PTR_TBL_t *const tbl);
#if defined(USE_ITHREADS)
# if defined(HAVE_INTERP_INTERN)