From: David Mitchell Date: Sat, 5 Jun 2010 12:44:04 +0000 (+0100) Subject: silence some warnings in hv.c X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5ac3629776cb773f868455ce02860eafa022c003;p=p5sagit%2Fp5-mst-13.2.git silence some warnings in hv.c Since de0a224a057997a65d38856f1981702fca5d7c18, xhv_keys and xhv_max are the same type, so no casting needed --- diff --git a/hv.c b/hv.c index 6d6edb2..08ca8d0 100644 --- a/hv.c +++ b/hv.c @@ -817,7 +817,7 @@ Perl_hv_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen, xhv->xhv_keys++; /* HvTOTALKEYS(hv)++ */ if (!counter) { /* initial entry? */ - } else if (xhv->xhv_keys > (IV)xhv->xhv_max) { + } else if (xhv->xhv_keys > xhv->xhv_max) { hsplit(hv); } else if(!HvREHASH(hv)) { U32 n_links = 1; @@ -2561,7 +2561,7 @@ S_share_hek_flags(pTHX_ const char *str, I32 len, register U32 hash, int flags) xhv->xhv_keys++; /* HvTOTALKEYS(hv)++ */ if (!next) { /* initial entry? */ - } else if (xhv->xhv_keys > (IV)xhv->xhv_max /* HvKEYS(hv) > HvMAX(hv) */) { + } else if (xhv->xhv_keys > xhv->xhv_max /* HvKEYS(hv) > HvMAX(hv) */) { hsplit(PL_strtab); } }