From eb160463266f58ba83ae9bb9ae8bbdc8f0c3027b Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Sun, 21 Apr 2002 19:53:08 +0000 Subject: fixes for all the warnings reported by Visual C (most of this change is from change#12026) p4raw-link: @12026 on //depot/maint-5.6/perl: ff42b73b40f5a895aef4bed81c794f468e0609bc p4raw-id: //depot/perl@16048 --- locale.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'locale.c') diff --git a/locale.c b/locale.c index db9edb74d5..02d546df69 100644 --- a/locale.c +++ b/locale.c @@ -216,7 +216,7 @@ Perl_new_collate(pTHX_ char *newcoll) SSize_t mult = fb - fa; if (mult < 1) Perl_croak(aTHX_ "strxfrm() gets absurd"); - PL_collxfrm_base = (fa > mult) ? (fa - mult) : 0; + PL_collxfrm_base = (fa > (Size_t)mult) ? (fa - mult) : 0; PL_collxfrm_mult = mult; } } @@ -561,7 +561,7 @@ Perl_mem_collxfrm(pTHX_ const char *s, STRLEN len, STRLEN *xlen) xused = strxfrm(xbuf + xout, s + xin, xAlloc - xout); if (xused == -1) goto bad; - if (xused < xAlloc - xout) + if ((STRLEN)xused < xAlloc - xout) break; xAlloc = (2 * xAlloc) + 1; Renew(xbuf, xAlloc, char); -- cgit v1.2.1