From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 29 Oct 2008 21:24:54 +0000 (+0000)
Subject: Perl_cv_const_sv() takes a const CV *const cv argument.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d45f5b305b44dff90b4efbdafe64d7e925c4f263;p=p5sagit%2Fp5-mst-13.2.git

Perl_cv_const_sv() takes a const CV *const cv argument.

p4raw-id: //depot/perl@34645
---

diff --git a/embed.fnc b/embed.fnc
index 9dde029..192e71d 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -174,7 +174,7 @@ p	|void	|cv_ckproto_len	|NN const CV* cv|NULLOK const GV* gv\
 				|NULLOK const char* p|const STRLEN len
 pd	|CV*	|cv_clone	|NN CV* proto
 ApdR	|SV*	|gv_const_sv	|NN GV* gv
-ApdR	|SV*	|cv_const_sv	|NULLOK CV* cv
+ApdR	|SV*	|cv_const_sv	|NULLOK const CV *const cv
 pR	|SV*	|op_const_sv	|NULLOK const OP* o|NULLOK CV* cv
 Apd	|void	|cv_undef	|NN CV* cv
 Ap	|void	|cx_dump	|NN PERL_CONTEXT* cx
diff --git a/op.c b/op.c
index 15e6522..cc027bf 100644
--- a/op.c
+++ b/op.c
@@ -5385,7 +5385,7 @@ L<perlsub/"Constant Functions">.
 =cut
 */
 SV *
-Perl_cv_const_sv(pTHX_ CV *cv)
+Perl_cv_const_sv(pTHX_ const CV *const cv)
 {
     PERL_UNUSED_CONTEXT;
     if (!cv)
diff --git a/proto.h b/proto.h
index 750ab28..1be6c1e 100644
--- a/proto.h
+++ b/proto.h
@@ -450,7 +450,7 @@ PERL_CALLCONV SV*	Perl_gv_const_sv(pTHX_ GV* gv)
 #define PERL_ARGS_ASSERT_GV_CONST_SV	\
 	assert(gv)
 
-PERL_CALLCONV SV*	Perl_cv_const_sv(pTHX_ CV* cv)
+PERL_CALLCONV SV*	Perl_cv_const_sv(pTHX_ const CV *const cv)
 			__attribute__warn_unused_result__;
 
 PERL_CALLCONV SV*	Perl_op_const_sv(pTHX_ const OP* o, CV* cv)