Lines Matching defs:num
602 Perl_av_unshift(pTHX_ register AV *av, register I32 num)
618 EXTEND(SP,1+num);
620 while (num-- > 0) {
631 if (num <= 0)
637 if (i > num)
638 i = num;
639 num -= i;
645 if (num) {
649 num += slide;
650 av_extend(av, i + num);
651 AvFILLp(av) += num;
653 Move(ary, ary + num, i + 1, SV*);
655 ary[--num] = &PL_sv_undef;
656 } while (num);