48     SV *bufsv;			/* buffer seen by layers above */  member
192     if (e->bufsv) {  in PerlIOEncode_popped()
193 	SvREFCNT_dec(e->bufsv);  in PerlIOEncode_popped()
194 	e->bufsv = Nullsv;  in PerlIOEncode_popped()
213     if (!e->bufsv) {  in PerlIOEncode_get_base()
214 	e->bufsv = newSV(e->base.bufsiz);  in PerlIOEncode_get_base()
215 	SvPVCLEAR(e->bufsv);  in PerlIOEncode_get_base()
217     e->base.buf = (STDCHAR *) SvPVX(e->bufsv);  in PerlIOEncode_get_base()
223 	|| e->base.ptr > e->base.buf + SvLEN(e->bufsv)) {  in PerlIOEncode_get_base()
225 		  e->base.buf + SvLEN(e->bufsv));  in PerlIOEncode_get_base()
228     if (SvLEN(e->bufsv) < e->base.bufsiz) {  in PerlIOEncode_get_base()
231 	e->base.buf = (STDCHAR *) SvGROW(e->bufsv, e->base.bufsiz);  in PerlIOEncode_get_base()
236 	|| e->base.ptr > e->base.buf + SvLEN(e->bufsv)) {  in PerlIOEncode_get_base()
238 		  e->base.buf + SvLEN(e->bufsv));  in PerlIOEncode_get_base()
361 	    sv_setpvn(e->bufsv,s,len);  in PerlIOEncode_fill()
362 	    e->base.ptr = e->base.buf = (STDCHAR*)SvPVX(e->bufsv);  in PerlIOEncode_fill()
363 	    e->base.end = e->base.ptr + SvCUR(e->bufsv);  in PerlIOEncode_fill()
365 	    SvUTF8_on(e->bufsv);  in PerlIOEncode_fill()
409     if (e->bufsv) {  in PerlIOEncode_flush()
423 	    SvCUR_set(e->bufsv, e->base.ptr - e->base.buf);  in PerlIOEncode_flush()
424 	    SvUTF8_on(e->bufsv);  in PerlIOEncode_flush()
425 	    XPUSHs(e->bufsv);  in PerlIOEncode_flush()
448 	    if (!SvPOKp(e->bufsv) || SvTHINKFIRST(e->bufsv))  in PerlIOEncode_flush()
449 		(void)SvPV_force_nolen(e->bufsv);  in PerlIOEncode_flush()
450 	    if ((STDCHAR *)SvPVX(e->bufsv) != e->base.buf) {  in PerlIOEncode_flush()
451 		e->base.ptr = (STDCHAR *)SvEND(e->bufsv);  in PerlIOEncode_flush()
452 		e->base.end = (STDCHAR *)SvPVX(e->bufsv) + (e->base.end-e->base.buf);  in PerlIOEncode_flush()
453 		e->base.buf = (STDCHAR *)SvPVX(e->bufsv);  in PerlIOEncode_flush()
456 	    if (SvCUR(e->bufsv)) {  in PerlIOEncode_flush()
458 		e->base.ptr = e->base.buf+SvCUR(e->bufsv);  in PerlIOEncode_flush()
533     if (e->bufsv) {  in PerlIOEncode_close()
538 	SvREFCNT_dec(e->bufsv);  in PerlIOEncode_close()
539 	e->bufsv = Nullsv;  in PerlIOEncode_close()