diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-04-29 01:58:58 +0300 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-04-28 20:40:41 +0000 |
| commit | 95b63a389ed86efed1a2fa9fd24931d56aac6070 (patch) | |
| tree | aeb1bc30a3a260876b428893c2b1a0c94fc4d6bd /universal.c | |
| parent | 899be1018553cb37b5cccbe4f65d169fd1c17028 (diff) | |
| download | perl-95b63a389ed86efed1a2fa9fd24931d56aac6070.tar.gz | |
reduce gcc -ansi -pedantic noise plus a suggestion
Message-ID: <44527402.8000506@gmail.com>
p4raw-id: //depot/perl@28008
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/universal.c b/universal.c index e94c602ab1..21f2c541d9 100644 --- a/universal.c +++ b/universal.c @@ -111,7 +111,7 @@ S_isa_lookup(pTHX_ HV *stash, const char *name, HV* name_stash, if (ckWARN(WARN_MISC)) Perl_warner(aTHX_ packWARN(WARN_SYNTAX), "Can't locate package %"SVf" for @%s::ISA", - sv, hvname); + (void*)sv, hvname); continue; } if (isa_lookup(basestash, name, name_stash, len, level + 1)) { @@ -382,8 +382,11 @@ XS(XS_UNIVERSAL_VERSION) if ( vcmp( req, sv ) > 0 ) Perl_croak(aTHX_ "%s version %"SVf" (%"SVf") required--" - "this is only version %"SVf" (%"SVf")", HvNAME_get(pkg), - vnumify(req),vnormal(req),vnumify(sv),vnormal(sv)); + "this is only version %"SVf" (%"SVf")", HvNAME_get(pkg), + (void*)vnumify(req), + (void*)vnormal(req), + (void*)vnumify(sv), + (void*)vnormal(sv)); } if ( SvOK(sv) && sv_derived_from(sv, "version") ) { @@ -921,9 +924,11 @@ XS(XS_PerlIO_get_layers) else { if (namok && argok) XPUSHs(Perl_newSVpvf(aTHX_ "%"SVf"(%"SVf")", - *namsvp, *argsvp)); + (void*)*namsvp, + (void*)*argsvp)); else if (namok) - XPUSHs(Perl_newSVpvf(aTHX_ "%"SVf, *namsvp)); + XPUSHs(Perl_newSVpvf(aTHX_ "%"SVf, + (void*)*namsvp)); else XPUSHs(&PL_sv_undef); nitem++; |