Searched refs:TYSUBR (Results 1 – 5 of 5) sorted by relevance
| /netbsd-src/external/bsd/pcc/dist/pcc/f77/fcom/ |
| H A D | proc.c | 196 if(type == TYSUBR) in entrypt()
209 if(proctype == TYSUBR) in entrypt()
210 type = TYSUBR; in entrypt()
231 if(proctype==TYSUBR) { in epicode()
236 goret(TYSUBR); in epicode()
253 goret(TYSUBR); in epicode()
369 } else if(type != TYSUBR) { in doentry()
706 if(type==TYSUBR && v->vtype!=TYUNKNOWN && v->vstg==STGARG)
708 v->vtype = TYSUBR;
756 case TYSUBR:
|
| H A D | exec.c | 240 settype(name, TYSUBR, 0);
286 putexpr( call1(TYSUBR, (stop ? "s_stop" : "s_paus"), p) );
565 if(p && (proctype!=TYSUBR || procclass!=CLPROC) )
577 putgoto(procclass==TYSUBR ? ret0label : retlabel);
|
| H A D | ftypes.h | 56 #define TYSUBR 10 macro
|
| H A D | gram.head | 116 { entrypt(CLPROC, TYSUBR, (ftnint) 0, $3, $4); }
|
| H A D | putscj.c | 976 p3 = putx( call4(TYSUBR, "s_cat", lhs, cp, lp, MKICON(n) ) ); in putcat()
|