43 static void ioset Argdcl((int, int, expptr));
45 static void iosetc Argdcl((int, expptr));
48 static void putio Argdcl((expptr, expptr));
49 static void putiocall Argdcl((expptr));
80 	expptr iocval;
427 	expptr p;  in endioctl()
468 				IOSTP = (expptr) mktmp(TYINT, ENULL);  in endioctl()
488 		IOSTP = (expptr) mktmp(TYINT, ENULL);  in endioctl()
575 	register expptr p;
577 ioclause(register int n, register expptr p)
609 			p = (expptr) (iostmt==IOREAD ? IOSTDIN : IOSTDOUT);
681 	register expptr qe;
705 					    (expptr)mkscalar(qn) );
712 			    (qe = (expptr) memversion(q->primblock.namep)) )
725 					qe = (expptr) putconst((Constp)qe);
732 					expptr qvl;
736 						qvl = (expptr)
744 					puteq( cpexpr((expptr)tp), qe);
750 					putio(ICON(1), (expptr)tp);
773 	expptr nelt;  in putio()
774 	register expptr addr;
776 putio(expptr nelt, register expptr addr)
780 	register expptr q;
795 			addr = (expptr) putconst((Constp)addr);
811 		expptr mc = mkconv(tyioint, ICON(typeconv[type]));
812 		q = c	? call4(TYINT, "do_lio", mc, nelt, addr, (expptr)c)
820 		q = c	? call3(TYINT, s, nelt, addr, (expptr)c)
860 	register expptr q;  in putiocall()
862 putiocall(register expptr q)
939 	register expptr p;  in startrw()
942 	register expptr nump;  in startrw()
964 				V(IOSUNIT) = p = (expptr) IOSTDIN;  in startrw()
993 			if(! isstatic((expptr)unitp) )  in startrw()
1033 				V(IOSFMT) = (expptr)fmtp;  in startrw()
1155 		ioset(TYIOINT, XUNIT, (expptr) unitp);  in startrw()
1158 		ioset(TYIOINT, /* intfile ? XIREC : */ XREC, (expptr) recp);  in startrw()
1163 		ioset(TYADDR, intfile ? XIFMT : XFMT, (expptr) fmtp);  in startrw()
1173 	putiocall( call1(TYINT, ioroutine, cpexpr((expptr)ioblkp) ));  in startrw()
1177 		frexpr((expptr)ioblkp);  in startrw()
1188 	register expptr p;  in dofopen()
1215 	putiocall( call1(TYINT, "f_open", cpexpr((expptr)ioblkp) ));  in dofopen()
1222 	register expptr p;  in dofclose()
1228 		putiocall( call1(TYINT, "f_clos", cpexpr((expptr)ioblkp)) );  in dofclose()
1238 	register expptr p;  in dofinquire()
1263 	putiocall( call1(TYINT,  "f_inqu", cpexpr((expptr)ioblkp) ));  in dofinquire()
1276 	register expptr p;
1281 		putiocall( call1(TYINT, subname, cpexpr((expptr)ioblkp) ));
1294 	register expptr p;
1296 ioset(int type, int offset, register expptr p)
1345 			p = (expptr)p1;
1349 		putexpr(mkexpr(ioset_assign, (expptr)q, p));
1360 	register expptr p;
1362 iosetc(int offset, register expptr p)
1368 		p = putx(fixtype((expptr)putchop(cpexpr(p))));
1388 	expptr e, mo;
1457 			e = mkexpr(OPCHARCAST, (expptr)p, ENULL);
1460 			e = addrof((expptr)p);
1477 	register expptr p;
1504 	register expptr p;