Change #31270 should have updated proto.h to match

p4raw-id: //depot/perl@31275

diff --git a/embed.fnc b/embed.fnc
index fec5643..a858b1c 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1437,7 +1437,7 @@ Es        |void   |debug_start_match|NN const regexp *prog|const bool do_utf8|NN const ch
 #endif
 
 #if defined(PERL_IN_DUMP_C) || defined(PERL_DECL_PROT)
-s      |CV*    |deb_curcv      |I32 ix
+s      |CV*    |deb_curcv      |const I32 ix
 s      |void   |debprof        |NN const OP *o
 s      |void   |sequence       |NULLOK const OP *o
 s      |void   |sequence_tail  |NULLOK const OP *o

diff --git a/proto.h b/proto.h
index 6ca37a3..da24bc1 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -3878,7 +3878,7 @@ STATIC void       S_debug_start_match(pTHX_ const regexp *prog, const bool do_utf8, co
 #endif
 
 #if defined(PERL_IN_DUMP_C) || defined(PERL_DECL_PROT)
-STATIC CV*     S_deb_curcv(pTHX_ I32 ix);
+STATIC CV*     S_deb_curcv(pTHX_ const I32 ix);
 STATIC void    S_debprof(pTHX_ const OP *o)
                        __attribute__nonnull__(pTHX_1);