usr.bin/perl/toke.c

71 #define PL_oldbufptr		(PL_parser->oldbufptr)
931         parser->oldbufptr =
1123     oldbufptr_pos = PL_parser->oldbufptr - buf;
1135     PL_parser->oldbufptr = buf + oldbufptr_pos;
1403     if (PL_parser->oldbufptr < ptr)
1404         PL_parser->oldbufptr = ptr;
1415     PL_parser->oldbufptr -= discard_len;
1500         oldbufptr_pos = PL_parser->oldbufptr - buf;
1559     PL_parser->oldbufptr = buf + oldbufptr_pos;
4766                 STRLEN const oldbufptr_pos = PL_parser->oldbufptr - buf;
4779                 PL_parser->oldbufptr = buf + oldbufptr_pos;