diff options
author | Andy Lester <andy@petdance.com> | 2005-03-30 05:40:24 -0600 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-04-04 14:19:30 +0000 |
commit | 6867be6d47d7be8fc56705e4b65f064d3eef92b7 (patch) | |
tree | 946d58490ddfa1221c9464942a78a5a2609b4247 /xsutils.c | |
parent | ba0dd969c3cb02f7dcf68ef7217d1d96446af41c (diff) | |
download | perl-6867be6d47d7be8fc56705e4b65f064d3eef92b7.tar.gz |
const-eight.diff
Message-ID: <20050330174024.GA12167@petdance.com>
p4raw-id: //depot/perl@24148
Diffstat (limited to 'xsutils.c')
-rw-r--r-- | xsutils.c | 8 |
1 files changed, 7 insertions, 1 deletions
@@ -160,6 +160,7 @@ XS(XS_attributes_bootstrap) { dXSARGS; const char file[] = __FILE__; + (void)cv; if( items > 1 ) Perl_croak(aTHX_ "Usage: attributes::bootstrap $module"); @@ -177,6 +178,7 @@ XS(XS_attributes__modify_attrs) { dXSARGS; SV *rv, *sv; + (void)cv; if (items < 1) { usage: @@ -199,6 +201,7 @@ XS(XS_attributes__fetch_attrs) dXSARGS; SV *rv, *sv; cv_flags_t cvflags; + (void)cv; if (items != 1) { usage: @@ -244,6 +247,7 @@ XS(XS_attributes__guess_stash) dXSARGS; SV *rv, *sv; dXSTARG; + (void)cv; if (items != 1) { usage: @@ -264,7 +268,7 @@ usage: sv_setsv(TARG, &PL_sv_no); /* unblessed lexical */ #endif else { - HV *stash = Nullhv; + const HV *stash = Nullhv; switch (SvTYPE(sv)) { case SVt_PVCV: if (CvGV(sv) && isGV(CvGV(sv)) && GvSTASH(CvGV(sv))) @@ -296,6 +300,7 @@ XS(XS_attributes_reftype) dXSARGS; SV *rv, *sv; dXSTARG; + (void)cv; if (items != 1) { usage: @@ -319,6 +324,7 @@ usage: XS(XS_attributes__warn_reserved) { dXSARGS; + (void)cv; if (items != 0) { Perl_croak(aTHX_ |