From b57a0404d6b6347be89474e64fcdac6ac6ea98db Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Thu, 21 Sep 2006 12:08:47 +0300 Subject: deal with some gcc warnings Message-ID: <45122C6F.9080904@iki.fi> p4raw-id: //depot/perl@28877 --- sv.c | 1 + 1 file changed, 1 insertion(+) (limited to 'sv.c') diff --git a/sv.c b/sv.c index 6e395efed2..1112f21c62 100644 --- a/sv.c +++ b/sv.c @@ -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); -- cgit v1.2.1