Generated files form 8713 etc.

p4raw-id: //depot/perl@8716

diff --git a/embed.h b/embed.h
index fe0b6b3..9b76260 100644 (file)
--- 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 dab2a7c..5ab9c71 100644 (file)
--- 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 51e4eb2..d1c2eee 100644 (file)
--- 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 04d48b9..4cdb104 100644 (file)
--- 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 e39d33e..cd4bc9a 100644 (file)
--- 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);