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 (file)
--- 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 (file)
--- 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 (file)
--- 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)