From 4601e4251201e9884a27fc3926ee8de93884df0e Mon Sep 17 00:00:00 2001
From: Karl Williamson <khw@cpan.org>
Date: Wed, 18 May 2022 14:56:16 -0600
Subject: [PATCH] perlapi: Document save_pushptr

---
 embed.fnc |  2 +-
 scope.c   | 14 ++++++++++++++
 2 files changed, 15 insertions(+), 1 deletion(-)

diff --git a/embed.fnc b/embed.fnc
index 8321ae918a..58c1d738f5 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1735,7 +1735,7 @@ Cp	|void	|save_sptr	|NN SV** sptr
 Xp	|void	|save_strlen	|NN STRLEN* ptr
 Apdh	|SV*	|save_svref	|NN SV** sptr
 Axpo	|void	|savetmps
-Cp	|void	|save_pushptr	|NULLOK void *const ptr|const int type
+Cpd	|void	|save_pushptr	|NULLOK void *const ptr|const int type
 Cp	|void	|save_pushi32ptr|const I32 i|NULLOK void *const ptr|const int type
 : Used by SAVESWITCHSTACK() in pp.c
 Cp	|void	|save_pushptrptr|NULLOK void *const ptr1 \
diff --git a/scope.c b/scope.c
index 70026df5e3..62e95ab57a 100644
--- a/scope.c
+++ b/scope.c
@@ -693,6 +693,20 @@ Perl_save_aptr(pTHX_ AV **aptr)
     save_pushptrptr(*aptr, aptr, SAVEt_APTR);
 }
 
+/*
+=for apidoc_section $callback
+=for apidoc save_pushptr
+
+The refcnt of object C<ptr> will be decremented at the end of the current
+I<pseudo-block>.  C<type> gives the type of C<ptr>, expressed as one of the
+constants in F<scope.h> whose name begins with C<SAVEt_>.
+
+This is the underlying implementation of several macros, like
+C<SAVEFREESV>.
+
+=cut
+*/
+
 void
 Perl_save_pushptr(pTHX_ void *const ptr, const int type)
 {