summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--embed.fnc2
-rw-r--r--scope.c14
2 files changed, 15 insertions, 1 deletions
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)
{