Update VPIT::XSHelpers to 18554226

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

diff --git a/autovivification.xs b/autovivification.xs
index 554056c1c53a024050d703df2f08cb0346b2093f..3f0eba1293530d1b6413c4a7e0d7e85e0d871db3 100644 (file)
--- a/autovivification.xs
+++ b/autovivification.xs
@@ -118,7 +118,7 @@ typedef struct {
 } a_op_info;
 
 #define PTABLE_NAME             ptable_map
-#define PTABLE_VAL_FREE(V)      PerlMemShared_free(V)
+#define PTABLE_VAL_FREE(V)      XSH_SHARED_FREE((V), 1, a_op_info)
 #define PTABLE_VAL_NEED_CONTEXT 0
 #define PTABLE_NEED_DELETE      1
 #define PTABLE_NEED_WALK        0
@@ -168,7 +168,7 @@ static const a_op_info *a_map_store_locked(pPMS_ const OP *o, OP *(*old_pp)(pTHX
  a_op_info *oi;
 
  if (!(oi = ptable_fetch(a_op_map, o))) {
-  oi = PerlMemShared_malloc(sizeof *oi);
+  XSH_SHARED_ALLOC(oi, 1, a_op_info);
   ptable_map_store(a_op_map, o, oi);
  }