From aaa067eafc38fefd44414ddbd2207ea69f4fba6b Mon Sep 17 00:00:00 2001
From: Karl Williamson <khw@cpan.org>
Date: Wed, 11 May 2022 12:21:54 -0600
Subject: [PATCH] perlintern: Document save_[ah]delete; mark internal

These implement SAVE[AH]HDELETE which are the API interfaces for this
functionality.
---
 embed.fnc |  4 ++--
 scope.c   | 18 ++++++++++++++++++
 2 files changed, 20 insertions(+), 2 deletions(-)

diff --git a/embed.fnc b/embed.fnc
index c63ab2e436..9b7c0e6f28 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -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
diff --git a/scope.c b/scope.c
index cf1b19c726..e902f4c852 100644
--- a/scope.c
+++ b/scope.c
@@ -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)
 {