Remove mathoms stub Perl_save_freepv()

Perl · Oct 21, 2024 · eec1379 · eec1379
1 parent f6101c3
commit eec1379
Show file tree

Hide file tree

Showing 5 changed files with 7 additions and 12 deletions.
diff --git a/embed.fnc b/embed.fnc
@@ -2913,7 +2913,7 @@ Cp	|void	|save_destructor_x					\
 				|NULLOK void *p
 : Used in SAVEFREOP(), used in op.c, pp_ctl.c
 CMbp	|void	|save_freeop	|NULLOK OP *o
-CMbp	|void	|save_freepv	|NULLOK char *pv
+Cmp	|void	|save_freepv	|NULLOK char *pv
 Cdp	|void	|save_freercpv	|NN char *rcpv
 CMbp	|void	|save_freesv	|NULLOK SV *sv
 Cdp	|void	|save_generic_pvref					\

diff --git a/embed.h b/embed.h
@@ -595,6 +595,7 @@
 # define save_delete(a,b,c)                     Perl_save_delete(aTHX_ a,b,c)
 # define save_destructor(a,b)                   Perl_save_destructor(aTHX_ a,b)
 # define save_destructor_x(a,b)                 Perl_save_destructor_x(aTHX_ a,b)
+# define save_freepv(a)                         Perl_save_freepv(aTHX,a)
 # define save_freercpv(a)                       Perl_save_freercpv(aTHX_ a)
 # define save_generic_pvref(a)                  Perl_save_generic_pvref(aTHX_ a)
 # define save_generic_svref(a)                  Perl_save_generic_svref(aTHX_ a)

diff --git a/mathoms.c b/mathoms.c
@@ -660,12 +660,6 @@ Perl_save_freeop(pTHX_ OP *o)
     save_freeop(o);
 }
 
-void
-Perl_save_freepv(pTHX_ char *pv)
-{
-    save_freepv(pv);
-}
-
 void
 Perl_save_op(pTHX)
 {

diff --git a/proto.h b/proto.h
diff --git a/scope.h b/scope.h
@@ -304,7 +304,8 @@ STMT_START {                                 \
       _o->op_savefree = 1;                     \
       save_pushptr((void *)(_o), SAVEt_FREEOP); \
     } STMT_END
-#define save_freepv(pv)		save_pushptr((void *)(pv), SAVEt_FREEPV)
+#define Perl_save_freepv(mTHX, pv)                          \
+        Perl_save_pushptr(aTHX_ (void *)(pv), SAVEt_FREEPV)
 
 /*
 =for apidoc_section $callback