Generated files form 8713 etc.

p4raw-id: //depot/perl@8716

5 files changed, 34 insertions, 0 deletions

diff --git a/embed.h b/embed.h
index fe0b6b3198..9b76260842 100644
--- a/embed.h
+++ b/embed.h
@@ -853,6 +853,8 @@
 #define ptr_table_fetch		Perl_ptr_table_fetch
 #define ptr_table_store		Perl_ptr_table_store
 #define ptr_table_split		Perl_ptr_table_split
+#define ptr_table_clear		Perl_ptr_table_clear
+#define ptr_table_free		Perl_ptr_table_free
 #endif
 #if defined(HAVE_INTERP_INTERN)
 #define sys_intern_clear	Perl_sys_intern_clear
@@ -2325,6 +2327,8 @@
 #define ptr_table_fetch(a,b)	Perl_ptr_table_fetch(aTHX_ a,b)
 #define ptr_table_store(a,b,c)	Perl_ptr_table_store(aTHX_ a,b,c)
 #define ptr_table_split(a)	Perl_ptr_table_split(aTHX_ a)
+#define ptr_table_clear(a)	Perl_ptr_table_clear(aTHX_ a)
+#define ptr_table_free(a)	Perl_ptr_table_free(aTHX_ a)
 #endif
 #if defined(HAVE_INTERP_INTERN)
 #define sys_intern_clear()	Perl_sys_intern_clear(aTHX)
@@ -4561,6 +4565,10 @@
 #define ptr_table_store		Perl_ptr_table_store
 #define Perl_ptr_table_split	CPerlObj::Perl_ptr_table_split
 #define ptr_table_split		Perl_ptr_table_split
+#define Perl_ptr_table_clear	CPerlObj::Perl_ptr_table_clear
+#define ptr_table_clear		Perl_ptr_table_clear
+#define Perl_ptr_table_free	CPerlObj::Perl_ptr_table_free
+#define ptr_table_free		Perl_ptr_table_free
 #endif
 #if defined(HAVE_INTERP_INTERN)
 #define Perl_sys_intern_clear	CPerlObj::Perl_sys_intern_clear
diff --git a/global.sym b/global.sym
index dab2a7cd1f..5ab9c718b0 100644
--- a/global.sym
+++ b/global.sym
@@ -556,5 +556,7 @@ Perl_ptr_table_new
 Perl_ptr_table_fetch
 Perl_ptr_table_store
 Perl_ptr_table_split
+Perl_ptr_table_clear
+Perl_ptr_table_free
 Perl_sys_intern_clear
 Perl_sys_intern_init
diff --git a/objXSUB.h b/objXSUB.h
index 51e4eb2e9b..d1c2eeee67 100644
--- a/objXSUB.h
+++ b/objXSUB.h
@@ -2248,6 +2248,14 @@
 #define Perl_ptr_table_split	pPerl->Perl_ptr_table_split
 #undef  ptr_table_split
 #define ptr_table_split		Perl_ptr_table_split
+#undef  Perl_ptr_table_clear
+#define Perl_ptr_table_clear	pPerl->Perl_ptr_table_clear
+#undef  ptr_table_clear
+#define ptr_table_clear		Perl_ptr_table_clear
+#undef  Perl_ptr_table_free
+#define Perl_ptr_table_free	pPerl->Perl_ptr_table_free
+#undef  ptr_table_free
+#define ptr_table_free		Perl_ptr_table_free
 #endif
 #if defined(HAVE_INTERP_INTERN)
 #undef  Perl_sys_intern_clear
diff --git a/perlapi.c b/perlapi.c
index 04d48b92b5..4cdb104580 100644
--- a/perlapi.c
+++ b/perlapi.c
@@ -4058,6 +4058,20 @@ Perl_ptr_table_split(pTHXo_ PTR_TBL_t *tbl)
 {
     ((CPerlObj*)pPerl)->Perl_ptr_table_split(tbl);
 }
+
+#undef  Perl_ptr_table_clear
+void
+Perl_ptr_table_clear(pTHXo_ PTR_TBL_t *tbl)
+{
+    ((CPerlObj*)pPerl)->Perl_ptr_table_clear(tbl);
+}
+
+#undef  Perl_ptr_table_free
+void
+Perl_ptr_table_free(pTHXo_ PTR_TBL_t *tbl)
+{
+    ((CPerlObj*)pPerl)->Perl_ptr_table_free(tbl);
+}
 #endif
 #if defined(HAVE_INTERP_INTERN)
 
diff --git a/proto.h b/proto.h
index e39d33e9fb..cd4bc9ae53 100644
--- a/proto.h
+++ b/proto.h
@@ -954,6 +954,8 @@ PERL_CALLCONV PTR_TBL_t*	Perl_ptr_table_new(pTHX);
 PERL_CALLCONV void*	Perl_ptr_table_fetch(pTHX_ PTR_TBL_t *tbl, void *sv);
 PERL_CALLCONV void	Perl_ptr_table_store(pTHX_ PTR_TBL_t *tbl, void *oldsv, void *newsv);
 PERL_CALLCONV void	Perl_ptr_table_split(pTHX_ PTR_TBL_t *tbl);
+PERL_CALLCONV void	Perl_ptr_table_clear(pTHX_ PTR_TBL_t *tbl);
+PERL_CALLCONV void	Perl_ptr_table_free(pTHX_ PTR_TBL_t *tbl);
 #endif
 #if defined(HAVE_INTERP_INTERN)
 PERL_CALLCONV void	Perl_sys_intern_clear(pTHX);