summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2006-09-21 12:08:47 +0300
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2006-09-21 07:54:10 +0000
commitb57a0404d6b6347be89474e64fcdac6ac6ea98db (patch)
treeacdc5f5e654b84d9d6ecc8464e9ca179e7c71359 /sv.c
parentfab43c1bb262944cb8f1d820af87e47b89cd3e12 (diff)
downloadperl-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.c1
1 files changed, 1 insertions, 0 deletions
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);