From c5661c80adf757c3cf464bf5f538fe5082b73584 Mon Sep 17 00:00:00 2001 From: Marcus Holland-Moritz Date: Wed, 11 Jun 2003 00:10:47 +0200 Subject: Integrate from maint: [ 19738] Subject: Re: [PATCH: maint @ 19733] CL compiler warnings on MSWin32 From: "Marcus Holland-Moritz" Message-ID: <011701c32f8c$62d85ee0$0c2f1fac@R2D2> p4raw-link: @19738 on //depot/perl: 5a1dd2ab5c9ca51eda95e7e0025702bdfcd91d9fon //depot/maint-5.8/perl: c43a4d73e4c3d92928dd743544b60e43ce02ee9c p4raw-id: //depot/perl@19739 p4raw-integrated: from //depot/maint-5.8/perl@19738 'copy in' ext/Encode/encengine.c (@18665..) ext/List/Util/Util.xs (@18791..) ext/Storable/Storable.xs (@19551..) ext/POSIX/POSIX.xs (@19704..) ext/threads/threads.xs (@19722..) 'merge in' ext/Thread/Thread.xs (@18145..) pp.h (@19400..) sv.c (@19653..) perl.c (@19704..) op.c (@19732..) --- sv.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'sv.c') diff --git a/sv.c b/sv.c index d7487ee4a5..932438b862 100644 --- a/sv.c +++ b/sv.c @@ -5918,13 +5918,13 @@ Perl_sv_pos_b2u(pTHX_ register SV* sv, I32* offsetp) mg = mg_find(sv, PERL_MAGIC_utf8); if (mg && mg->mg_ptr) { cache = (STRLEN *) mg->mg_ptr; - if (cache[1] == *offsetp) { + if (cache[1] == (STRLEN)*offsetp) { /* An exact match. */ *offsetp = cache[0]; return; } - else if (cache[1] < *offsetp) { + else if (cache[1] < (STRLEN)*offsetp) { /* We already know part of the way. */ len = cache[0]; s += cache[1]; -- cgit v1.2.1