X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=blobdiff_plain;f=Types.xs;h=8367cba9949c64a39938be2d0c7a47e5a8ec98c2;hp=cf005cd34fd23c2e14f343950597da42925ef465;hb=67165b7d215ffac8a1c56642fbffbf2715b9e6d1;hpb=c8223c2b729cdac4d9b77f634ed31613ce5620bf

diff --git a/Types.xs b/Types.xs
index cf005cd..8367cba 100644
--- a/Types.xs
+++ b/Types.xs
@@ -152,6 +152,11 @@ typedef SV lt_hint_t;
 
 #include "ptable.h"
 
+/* PerlMemShared_free() needs the [ap]PTBLMS_? default values */
+#define ptable_seen_store(T, K, V) ptable_seen_store(aPTBLMS_ (T), (K), (V))
+#define ptable_seen_clear(T)       ptable_seen_clear(aPTBLMS_ (T))
+#define ptable_seen_free(T)        ptable_seen_free(aPTBLMS_ (T))
+
 #endif /* !LT_HAS_RPEEP */
 
 /* ... Global data ......................................................... */
@@ -374,6 +379,7 @@ STATIC SV *lt_hint(pTHX) {
 
 /* PerlMemShared_free() needs the [ap]PTBLMS_? default values */
 #define ptable_map_store(T, K, V) ptable_map_store(aPTBLMS_ (T), (K), (V))
+#define ptable_map_delete(T, K)   ptable_map_delete(aPTBLMS_ (T), (K))
 
 STATIC ptable *lt_op_map = NULL;