Add a missing aTHX for Win32 builds

[perl/modules/autovivification.git] / autovivification.xs

diff --git a/autovivification.xs b/autovivification.xs
index eb1cbbcad762d48e209de8f40048ef578ba6f24a..528b13bb8a779936b5e27286be3e6ee0944bff8d 100644 (file)
--- a/autovivification.xs
+++ b/autovivification.xs
@@ -491,6 +491,7 @@ typedef struct {
 /* 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))
+#define ptable_map_free(T)        ptable_map_free(aPTBLMS_ (T))
 
 static ptable *a_op_map = NULL;