diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-09-21 12:08:47 +0300 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-09-21 07:54:10 +0000 |
commit | b57a0404d6b6347be89474e64fcdac6ac6ea98db (patch) | |
tree | acdc5f5e654b84d9d6ecc8464e9ca179e7c71359 /sv.c | |
parent | fab43c1bb262944cb8f1d820af87e47b89cd3e12 (diff) | |
download | perl-b57a0404d6b6347be89474e64fcdac6ac6ea98db.tar.gz |
deal with some gcc warnings
Message-ID: <45122C6F.9080904@iki.fi>
p4raw-id: //depot/perl@28877
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -1851,6 +1851,7 @@ STATIC int S_sv_2iuv_non_preserve(pTHX_ register SV *sv, I32 numtype) { dVAR; + PERL_UNUSED_ARG(numtype); /* Used only under DEBUGGING? */ DEBUG_c(PerlIO_printf(Perl_debug_log,"sv_2iuv_non '%s', IV=0x%"UVxf" NV=%"NVgf" inttype=%"UVXf"\n", SvPVX_const(sv), SvIVX(sv), SvNVX(sv), (UV)numtype)); if (SvNVX(sv) < (NV)IV_MIN) { (void)SvIOKp_on(sv); |