From d45f5b305b44dff90b4efbdafe64d7e925c4f263 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Wed, 29 Oct 2008 21:24:54 +0000 Subject: [PATCH] Perl_cv_const_sv() takes a const CV *const cv argument. p4raw-id: //depot/perl@34645 --- embed.fnc | 2 +- op.c | 2 +- proto.h | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) 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. =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) -- 2.7.4