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

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;