Lines Matching defs:mark
643 Perl_do_join(pTHX_ register SV *sv, SV *del, register SV **mark, register SV **sp)
645 SV **oldmark = mark;
646 register I32 items = sp - mark;
654 mark++;
659 if (*mark && !SvGAMAGIC(*mark) && SvOK(*mark)) {
660 SvPV(*mark, tmplen);
663 mark++;
667 mark = oldmark;
668 items = sp - mark;
669 ++mark;
681 if (*mark)
682 sv_catsv(sv, *mark);
683 mark++;
687 for (; items > 0; items--,mark++) {
689 sv_catsv(sv,*mark);
693 for (; items > 0; items--,mark++)
694 sv_catsv(sv,*mark);