From a2abec565f9c6a0bd91a9da0c9773377bdc37f5e Mon Sep 17 00:00:00 2001
From: Karl Williamson <khw@cpan.org>
Date: Sat, 8 Oct 2022 06:25:11 -0600
Subject: [PATCH] S_clear_placeholders(): Fix compiler warning

A parameter to this function was declared const in its prototype but not
in embed.fnc, and had a different name
---
 embed.fnc | 2 +-
 proto.h   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/embed.fnc b/embed.fnc
index 96b99500a3c9..615372751c99 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -4316,7 +4316,7 @@ EGdp	|HV *	|gv_stashsvpvn_cached					\
 #if defined(PERL_IN_HV_C)
 Sx	|void	|clear_placeholders					\
 				|NN HV *hv				\
-				|U32 items
+				|const U32 items
 S	|void	|hsplit 	|NN HV *hv				\
 				|STRLEN const oldsize			\
 				|STRLEN newsize
diff --git a/proto.h b/proto.h
index 80f6d25155c9..aefd8c886390 100644
--- a/proto.h
+++ b/proto.h
@@ -6884,7 +6884,7 @@ Perl_gv_stashsvpvn_cached(pTHX_ SV *namesv, const char *name, U32 namelen, I32 f
 #endif
 #if defined(PERL_IN_HV_C)
 STATIC void
-S_clear_placeholders(pTHX_ HV *hv, U32 items);
+S_clear_placeholders(pTHX_ HV *hv, const U32 items);
 # define PERL_ARGS_ASSERT_CLEAR_PLACEHOLDERS    \
         assert(hv)