mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

perlapi: Document save_pushptr

Browse Source
This commit is contained in:
Karl Williamson 2022-05-18 14:56:16 -06:00
parent 704ee149f7
commit 4601e42512
2 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
embed.fnc
View File

@ -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 \

14
scope.c
View File

@ -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)
{