Lines Matching defs:newlen
1588 Perl_sv_grow(pTHX_ register SV *sv, register STRLEN newlen)
1595 if (newlen >= 0x10000) {
1597 "Allocation too large: %"UVxf"\n", (UV)newlen);
1610 if (newlen > SvLEN(sv))
1611 newlen += 10 * (newlen - SvCUR(sv)); /* avoid copy each time */
1613 if (newlen >= 0x10000)
1614 newlen = 0xFFFF;
1620 if (newlen > SvLEN(sv)) { /* need more room? */
1624 if (newlen <= l) {
1629 Renew(s,newlen,char);
1638 New(703, s, newlen, char);
1640 Move(SvPVX(sv), s, (newlen < SvCUR(sv)) ? newlen : SvCUR(sv), char);
1644 SvLEN_set(sv, newlen);