Lines Matching defs:curlen
3544 Perl_translate_substr_offsets( STRLEN curlen, IV pos1_iv,
3554 if (!pos1_is_uv && pos1_iv < 0 && curlen) {
3555 pos1_is_uv = curlen-1 > ~(UV)pos1_iv;
3556 pos1_iv += curlen;
3558 if ((pos1_is_uv || pos1_iv > 0) && (UV)pos1_iv > curlen)
3563 pos2_iv = curlen + len_iv;
3564 if (curlen)
3565 pos2_is_uv = curlen-1 > ~(UV)len_iv;
3573 if ((UV)len_iv > curlen-(UV)pos1_iv)
3574 pos2_iv = curlen;
3582 pos2_iv = curlen;
3596 if ((UV)pos2_iv > curlen)
3597 pos2_iv = curlen;
3599 /* pos1_iv and pos2_iv both in 0..curlen, so the cast is safe */
3613 STRLEN curlen;
3673 tmps = SvPV_force_nomg(sv, curlen);
3677 * got reallocated; curlen may also have been changed */
3679 tmps = SvPV_nomg(sv, curlen);
3685 else tmps = SvPV_const(sv, curlen);
3687 utf8_curlen = sv_or_pv_len_utf8(sv, tmps, curlen);
3688 if (utf8_curlen == curlen)
3691 curlen = utf8_curlen;
3700 curlen, pos1_iv, pos1_is_uv, len_iv, len_is_uv, &pos, &len