In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/bca8f980420acdca62da941e2d02a8a51ee7e57a?hp=9ec237a175983ee0ad7a2ccd66f797f9e01b74a1>
- Log ----------------------------------------------------------------- commit bca8f980420acdca62da941e2d02a8a51ee7e57a Author: Andy Dougherty <[email protected]> Date: Fri Jul 12 09:26:18 2013 -0400 Add a const qualifier for the arg to the S_CvGV inline function in cv.h. In addition to correctly describing the behavior of S_CvGV, this avoids warnings in op.c:Perl_report_redefined_cv, where the old (CV *) cast removed the 'const' qualifier. Observed on OpenBSD 5.2 with gcc-4.2.1. ----------------------------------------------------------------------- Summary of changes: cv.h | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/cv.h b/cv.h index 5da9a50..234e030 100644 --- a/cv.h +++ b/cv.h @@ -49,7 +49,7 @@ See L<perlguts/Autoloading with XSUBs>. #define CvROOT(sv) ((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_root_u.xcv_root #define CvXSUB(sv) ((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_root_u.xcv_xsub #define CvXSUBANY(sv) ((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_start_u.xcv_xsubany -#define CvGV(sv) S_CvGV((CV *)(sv)) +#define CvGV(sv) S_CvGV((const CV *)(sv)) #define CvGV_set(cv,gv) Perl_cvgv_set(aTHX_ cv, gv) #define CvFILE(sv) ((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_file #ifdef USE_ITHREADS @@ -189,7 +189,7 @@ See L<perlguts/Autoloading with XSUBs>. #define XS_DYNAMIC_FILENAME 0x01 /* The filename isn't static */ PERL_STATIC_INLINE GV * -S_CvGV(CV *sv) +S_CvGV(const CV *sv) { return CvNAMED(sv) ? 0 -- Perl5 Master Repository
