Change 34645 by [EMAIL PROTECTED] on 2008/10/29 21:24:54
Perl_cv_const_sv() takes a const CV *const cv argument.
Affected files ...
... //depot/perl/embed.fnc#626 edit
... //depot/perl/op.c#1012 edit
... //depot/perl/proto.h#961 edit
Differences ...
==== //depot/perl/embed.fnc#626 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#625~34627~ 2008-10-28 14:12:09.000000000 -0700
+++ perl/embed.fnc 2008-10-29 14:24:54.000000000 -0700
@@ -174,7 +174,7 @@
|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
==== //depot/perl/op.c#1012 (text) ====
Index: perl/op.c
--- perl/op.c#1011~34629~ 2008-10-28 15:14:26.000000000 -0700
+++ perl/op.c 2008-10-29 14:24:54.000000000 -0700
@@ -5385,7 +5385,7 @@
=cut
*/
SV *
-Perl_cv_const_sv(pTHX_ CV *cv)
+Perl_cv_const_sv(pTHX_ const CV *const cv)
{
PERL_UNUSED_CONTEXT;
if (!cv)
==== //depot/perl/proto.h#961 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#960~34627~ 2008-10-28 14:12:09.000000000 -0700
+++ perl/proto.h 2008-10-29 14:24:54.000000000 -0700
@@ -450,7 +450,7 @@
#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)
End of Patch.
