Home
last modified time | relevance | path

Searched refs:svic (Results 1 – 2 of 2) sorted by relevance

/original-bsd/usr.bin/f77/libI77/
H A Dc_iio.c19 LOCAL icilist *svic; /* active internal io list */ variable
33 else if (recpos == svic->icirlen) in z_getc()
45 if(recpos++ < svic->icirlen) return(*icptr++); in z_getc()
53 if(recpos++ < svic->icirlen)
75 if(ch==EOF || --recpos >= svic->icirlen) return(OK);
76 if(--icptr < svic->iciunit || recpos < 0) err(errflag,F_ERBREC,"ilio")
92 svic = a;
118 icptr = svic->iciunit + (++recnum)*svic->icirlen; in z_rnew()
129 while(recpos < svic->icirlen) (*putn)(' '); in z_wnew()
160 svic = a;
H A Diio.c10 LOCAL icilist *svic; /* active internal io list */ variable
24 if(recpos++ < svic->icirlen) return(*icptr++); in z_getc()
33 if(recpos++ < svic->icirlen)
50 { if(ch==EOF || --recpos >= svic->icirlen) return(OK);
51 if(--icptr < svic->iciunit || recpos < 0) err(errflag,F_ERBREC,"ilio")
115 svic = a;
146 icptr = svic->iciunit + (++recnum)*svic->icirlen; in z_rnew()
158 while(recpos < svic->icirlen) (*putn)(' '); in z_wnew()
212 svic = a;