From bb7a0f5422600fd7de7806825a1300a577b7e61f Mon Sep 17 00:00:00 2001 From: Marcus Holland-Moritz Date: Tue, 25 Apr 2006 01:20:38 +0200 Subject: Re: [PATCH] cleanup 212 warnings emitted by gcc-4.2 Message-ID: <20060424232038.7550f9b6@r2d2> p4raw-id: //depot/perl@27962 --- doio.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'doio.c') diff --git a/doio.c b/doio.c index 6910cf1627..2237f43e62 100644 --- a/doio.c +++ b/doio.c @@ -2251,7 +2251,7 @@ Perl_do_shmio(pTHX_ I32 optype, SV **mark, SV **sp) SETERRNO(0,0); if (shmctl(id, IPC_STAT, &shmds) == -1) return -1; - if (mpos < 0 || msize < 0 || mpos + msize > shmds.shm_segsz) { + if (mpos < 0 || msize < 0 || (size_t)mpos + msize > shmds.shm_segsz) { SETERRNO(EFAULT,SS_ACCVIO); /* can't do as caller requested */ return -1; } @@ -2264,7 +2264,7 @@ Perl_do_shmio(pTHX_ I32 optype, SV **mark, SV **sp) if (! SvOK(mstr)) sv_setpvn(mstr, "", 0); SvPV_force_nolen(mstr); - mbuf = SvGROW(mstr, msize+1); + mbuf = SvGROW(mstr, (STRLEN)msize+1); Copy(shm + mpos, mbuf, msize, char); SvCUR_set(mstr, msize); -- cgit v1.2.1