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

perlintern: Document save_[ah]delete; mark internal

Browse Source 
These implement SAVE[AH]HDELETE which are the API interfaces for this
functionality.
This commit is contained in:
Karl Williamson 2022-05-11 12:21:54 -06:00
parent 97172efd38
commit aaa067eafc
2 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
embed.fnc
View File

@ -1691,8 +1691,8 @@ Apdh |AV* |save_ary |NN GV* gv
Cp |void |save_bool |NN bool* boolp
Cp |void |save_clearsv |NN SV** svp
Cp |void |save_delete |NN HV *hv|NN char *key|I32 klen
Ap |void |save_hdelete |NN HV *hv|NN SV *keysv
Ap |void |save_adelete |NN AV *av|SSize_t key
Cpd |void |save_hdelete |NN HV *hv|NN SV *keysv
Cpd |void |save_adelete |NN AV *av|SSize_t key
Cp |void |save_destructor|DESTRUCTORFUNC_NOCONTEXT_t f|NN void* p
Cp |void |save_destructor_x|DESTRUCTORFUNC_t f|NULLOK void* p
CpMb |void |save_freesv |NULLOK SV* sv

18
scope.c
View File

@ -711,6 +711,15 @@ Perl_save_delete(pTHX_ HV *hv, char *key, I32 klen)
save_pushptri32ptr(key, klen, SvREFCNT_inc_simple(hv), SAVEt_DELETE);
}
/*
=for apidoc_section $callback
=for apidoc save_hdelete
Implements C<SAVEHDELETE>.
=cut
*/
void
Perl_save_hdelete(pTHX_ HV *hv, SV *keysv)
{
@ -726,6 +735,15 @@ Perl_save_hdelete(pTHX_ HV *hv, SV *keysv)
save_pushptri32ptr(savepvn(key, len), klen, hv, SAVEt_DELETE);
}
/*
=for apidoc_section $callback
=for apidoc save_adelete
Implements C<SAVEADELETE>.
=cut
*/
void
Perl_save_adelete(pTHX_ AV *av, SSize_t key)
{