summaryrefslogtreecommitdiff
path: root/doio.c
diff options
context:
space:
mode:
authorMarcus Holland-Moritz <mhx-perl@gmx.net>2006-04-25 01:20:38 +0200
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2006-04-26 07:53:36 +0000
commitbb7a0f5422600fd7de7806825a1300a577b7e61f (patch)
tree822f6cd3d63d224843f4eba60c9f90fd3190d28f /doio.c
parentfcea4b7c99fe376a2295931b658ba7f41a47470e (diff)
downloadperl-bb7a0f5422600fd7de7806825a1300a577b7e61f.tar.gz
Re: [PATCH] cleanup 212 warnings emitted by gcc-4.2
Message-ID: <20060424232038.7550f9b6@r2d2> p4raw-id: //depot/perl@27962
Diffstat (limited to 'doio.c')
-rw-r--r--doio.c4
1 files changed, 2 insertions, 2 deletions
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);