X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=blobdiff_plain;f=Types.xs;fp=Types.xs;h=1b9aee0686e2d4385cc58a9dc88aedb1114e1169;hp=882deae82327fdd9feb2672b71a6f5238c3ce5c3;hb=ddde33cb0654c5f7c44e321cf020059908f64ea8;hpb=0c5eb4d19c4c97d9b26e6a3152e447d37db0a36e

diff --git a/Types.xs b/Types.xs
index 882deae..1b9aee0 100644
--- a/Types.xs
+++ b/Types.xs
@@ -176,6 +176,8 @@ typedef SV lt_hint_t;
 
 #define PTABLE_NAME        ptable_hints
 #define PTABLE_VAL_FREE(V) LT_HINT_FREE(V)
+#define PTABLE_NEED_DELETE 0
+#define PTABLE_NEED_WALK   1
 
 #define pPTBL  pTHX
 #define pPTBL_ pTHX_
@@ -192,7 +194,8 @@ typedef SV lt_hint_t;
 /* ... "Seen" pointer table ................................................ */
 
 #define PTABLE_NAME        ptable_seen
-#define PTABLE_VAL_FREE(V) NOOP
+#define PTABLE_NEED_DELETE 0
+#define PTABLE_NEED_WALK   0
 
 #include "ptable.h"
 
@@ -443,6 +446,8 @@ static SV *lt_hint(pTHX) {
 
 #define PTABLE_NAME        ptable_map
 #define PTABLE_VAL_FREE(V) PerlMemShared_free(V)
+#define PTABLE_NEED_DELETE 1
+#define PTABLE_NEED_WALK   0
 
 #include "ptable.h"