diff options
| author | Andy Lester <andy@petdance.com> | 2005-05-23 05:38:25 -0500 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2005-05-23 15:24:05 +0000 |
| commit | 2dfd8427393aecf9e4f0fdf1f999b249b467815c (patch) | |
| tree | db4410ce9563ea4c1fe252689326cb3c309766c3 /universal.c | |
| parent | b79c357a0c9c7ce8cc63f8054dca48fefcb408f8 (diff) | |
| download | perl-2dfd8427393aecf9e4f0fdf1f999b249b467815c.tar.gz | |
universal.c warnings hushed
Message-Id: <20050523153825.GA28498@petdance.com>
p4raw-id: //depot/perl@24553
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 35 |
1 files changed, 16 insertions, 19 deletions
diff --git a/universal.c b/universal.c index e02bf00577..6c118b7845 100644 --- a/universal.c +++ b/universal.c @@ -176,7 +176,11 @@ XS(XS_version_stringify); XS(XS_version_numify); XS(XS_version_vcmp); XS(XS_version_boolean); +#ifdef HASATTRIBUTE_NORETURN +XS(XS_version_noop) __attribute__noreturn__; +#else XS(XS_version_noop); +#endif XS(XS_version_is_alpha); XS(XS_version_qv); XS(XS_utf8_is_utf8); @@ -534,25 +538,16 @@ XS(XS_version_boolean) XS(XS_version_noop) { - dXSARGS; - if (items < 1) - Perl_croak(aTHX_ "Usage: version::noop(lobj, ...)"); - { - SV * lobj = Nullsv; - - if (sv_derived_from(ST(0), "version")) { - SV *tmp = SvRV(ST(0)); - lobj = tmp; - } - else - Perl_croak(aTHX_ "lobj is not of type version"); - - { - Perl_croak(aTHX_ "operation not supported with version object"); - } - - } - XSRETURN_EMPTY; + dXSARGS; + if (items < 1) + Perl_croak(aTHX_ "Usage: version::noop(lobj, ...)"); + if (sv_derived_from(ST(0), "version")) + Perl_croak(aTHX_ "operation not supported with version object"); + else + Perl_croak(aTHX_ "lobj is not of type version"); +#ifndef HASATTRIBUTE_NORETURN + XSRETURN_EMPTY; +#endif } XS(XS_version_is_alpha) @@ -925,6 +920,7 @@ XS(XS_Internals_hash_seed) /* Using dXSARGS would also have dITEM and dSP, * which define 2 unused local variables. */ dAXMARK; + (void)mark; XSRETURN_UV(PERL_HASH_SEED); } @@ -933,6 +929,7 @@ XS(XS_Internals_rehash_seed) /* Using dXSARGS would also have dITEM and dSP, * which define 2 unused local variables. */ dAXMARK; + (void)mark; XSRETURN_UV(PL_rehash_seed); } |