From: Steve Hay <SteveHay@planit.com>
Date: Fri, 25 May 2007 10:15:54 +0000 (+0000)
Subject: Change #31270 should have updated proto.h to match
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2cedf74c736a994c3bd01b28bdb7fb83f0cf05e3;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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);