Remove mathoms stub Perl_save_freepv()

khwilliamson · khwilliamson · commit 9d5c1af787b9 · 2024-10-28T09:55:09.000-06:00
diff --git a/embed.fnc b/embed.fnc
@@ -2916,7 +2916,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

Original file line number	Diff line number	Diff line change
`@@ -660,12 +660,6 @@ Perl_save_freeop(pTHX_ OP *o)`
`660`	`660`	`save_freeop(o);`
`661`	`661`	`}`
`662`	`662`
`663`		`-void`
`664`		`-Perl_save_freepv(pTHX_ char *pv)`
`665`		`-{`
`666`		`- save_freepv(pv);`
`667`		`-}`
`668`		`-`
`669`	`663`	`void`
`670`	`664`	`Perl_save_op(pTHX)`
`671`	`665`	`{`