summaryrefslogtreecommitdiff
path: root/universal.c
diff options
context:
space:
mode:
authorAndy Lester <andy@petdance.com>2005-05-23 05:38:25 -0500
committerAbhijit Menon-Sen <ams@wiw.org>2005-05-23 15:24:05 +0000
commit2dfd8427393aecf9e4f0fdf1f999b249b467815c (patch)
treedb4410ce9563ea4c1fe252689326cb3c309766c3 /universal.c
parentb79c357a0c9c7ce8cc63f8054dca48fefcb408f8 (diff)
downloadperl-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.c35
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);
}