5.8.4/distrib/perlio.c

1781 Perl_PerlIO_set_cnt(pTHX_ PerlIO *f, int cnt)
1783      Perl_PerlIO_or_fail_void(f, Set_ptrcnt, (aTHX_ f, NULL, cnt));
1787 Perl_PerlIO_set_ptrcnt(pTHX_ PerlIO *f, STDCHAR * ptr, int cnt)
1789      Perl_PerlIO_or_fail_void(f, Set_ptrcnt, (aTHX_ f, ptr, cnt));
2226     int cnt = 0;
2231 	cnt = --PerlIO_fd_refcnt[fd];
2232 	PerlIO_debug("fd %d refcnt=%d\n",fd,cnt);
2237     return cnt;
3000 	SSize_t cnt   = PerlIO_get_cnt(f);
3011 	    PerlIO_set_ptrcnt(f,ptr,cnt+avail);
3163 PerlIOStdio_set_ptrcnt(pTHX_ PerlIO *f, STDCHAR * ptr, SSize_t cnt)
3170 	if (PerlSIO_get_cnt(stdio) != (cnt)) {
3171 	    assert(PerlSIO_get_cnt(stdio) == (cnt));
3176 	 * Setting ptr _does_ change cnt - we are done
3185      * Now (or only) set cnt
3188     PerlSIO_set_cnt(stdio, cnt);
3193 					      cnt));
3227 	SSize_t cnt   = PerlSIO_get_cnt(stdio);
3231 	    PerlIOStdio_set_ptrcnt(aTHX_ f,ptr,cnt+1);
3571 	    SSize_t cnt = avail;
3575 	    PerlIO_set_ptrcnt(n, ptr + avail, cnt - avail);
3832 PerlIOBuf_set_ptrcnt(pTHX_ PerlIO *f, STDCHAR * ptr, SSize_t cnt)
3838     if (PerlIO_get_cnt(f) != cnt || b->ptr < b->buf) {
3839 	assert(PerlIO_get_cnt(f) == cnt);
3933 PerlIOPending_set_ptrcnt(pTHX_ PerlIO *f, STDCHAR * ptr, SSize_t cnt)
3935     if (cnt <= 0) {
3939 	PerlIOBuf_set_ptrcnt(aTHX_ f, ptr, cnt);
4012  * overriding ptr/cnt entries to hand back a line at a time and keeping a
4176 PerlIOCrlf_set_ptrcnt(pTHX_ PerlIO *f, STDCHAR * ptr, SSize_t cnt)
4193 	ptr -= cnt;
4202 	if (ptr+cnt == c->nl && c->nl+1 == b->end && *c->nl == 0xd) {
4206 	chk -= cnt;
4211 		       b->end, cnt);
4319     PerlIOBuf_read,             /* generic read works with ptr/cnt lies