From: Vincent Pit <vince@profvince.com>
Date: Mon, 3 Jan 2011 20:20:16 +0000 (+0100)
Subject: Fix building on Windows
X-Git-Tag: v0.10~2
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=commitdiff_plain;h=67165b7d215ffac8a1c56642fbffbf2715b9e6d1

Fix building on Windows
---

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;