Home
last modified time | relevance | path

Searched refs:TYCHAR (Results 1 – 13 of 13) sorted by relevance

/netbsd-src/external/bsd/pcc/dist/pcc/f77/fcom/
H A Ddata.c178 if(np->vtype == TYCHAR)
196 if(q->vtype == TYCHAR)
210 *vlenp = (np->vtype==TYCHAR ?
261 if(type!=TYCHAR && valtype==TYCHAR)
266 varp->vtype = type = TYCHAR;
268 else if( (type==TYCHAR && valtype!=TYCHAR) ||
274 if(type != TYCHAR) {
311 case TYCHAR:
318 fprintf(initfile, datafmt, varname, offset++, vlen, TYCHAR);
324 fprintf(initfile, datafmt, varname, offset++, vlen, TYCHAR);
H A Dintr.c73 { "char", { INTRCONV, TYCHAR }, },
242 { TYCHAR,TYSHORT,1,"h_len" },
243 { TYCHAR,TYLONG,1,"i_len" },
245 { TYCHAR,TYSHORT,2,"h_indx" },
246 { TYCHAR,TYLONG,2,"i_indx" },
305 { TYCHAR,TYLOGICAL,2,"hl_ge" },
306 { TYCHAR,TYLOGICAL,2,"l_ge" },
308 { TYCHAR,TYLOGICAL,2,"hl_gt" },
309 { TYCHAR,TYLOGICAL,2,"l_gt" },
311 { TYCHAR,TYLOGICAL,2,"hl_le" },
[all …]
H A Dproc.c187 if( (type = lengtype(type, (int) length)) != TYCHAR) in entrypt()
268 case TYCHAR:
339 if( (proctype = type) == TYCHAR) in doentry()
342 if(proctype == TYCHAR) { in doentry()
343 if(type != TYCHAR) in doentry()
347 } else if(type == TYCHAR) in doentry()
355 if(type == TYCHAR) { in doentry()
384 if(q->vtype == TYCHAR) { in doentry()
428 align = (q->vtype==TYCHAR ? ALILONG : typealign[q->vtype]); in dobss()
444 if(q->vtype==TYCHAR && (q->vleng==NULL || !ISICON(q->vleng))) in dobss()
[all …]
H A Dio.c390 if(n!=IOSFMT && ( n!=IOSUNIT || (p!=NULL && p->vtype!=TYCHAR) ) )
484 if(type != TYCHAR)
488 addr->vtype = TYCHAR;
564 else if(p->vtype == TYCHAR) in startrw()
613 if(p->vtype == TYCHAR) in startrw()
653 if( (p = V(IOSFILE)) && p->vtype==TYCHAR) in dofopen()
765 else if(p->vtype == TYCHAR)
795 if( (p = V(i)) && p->vtype==TYCHAR)
H A Dput.c162 case TYCHAR: in putconst()
234 preven(typealign[ type==TYCHAR ? TYLONG : type ]); in putconst()
261 case TYCHAR: in putconst()
H A Dexpr.c142 p = mkconst(TYCHAR);
261 if(e->vtype == TYCHAR)
727 if(np->vtype!=TYCHAR && !ftn66flag)
817 if(q->vtype==ap->vtype && q->vtype!=TYCHAR in stfcall()
916 if(np->vtype != TYCHAR) in mklhs()
1028 if(np->vtype == TYCHAR)
1035 if(p->b_prim.fcharp && np->vtype==TYCHAR)
1564 if(lt==TYCHAR || rt==TYCHAR || lt==TYLOGICAL || rt==TYLOGICAL)
1581 if(lt==TYCHAR && rt==TYCHAR)
1582 return(TYCHAR);
[all …]
H A Ddefines.h240 #define MSKCHAR M(TYCHAR)
252 #define ISCHAR(z) (z->vtype==TYCHAR)
H A Dftypes.h55 #define TYCHAR 9 macro
H A Dmain.c385 align = (type==TYCHAR ? SZLONG : in dodata()
412 if(type == TYCHAR) { in dodata()
H A Dputscj.c875 t = fmktemp(TYCHAR, cpexpr(p->vleng) ); in putch1()
884 t = fmktemp(TYCHAR, MKICON(1) ); in putch1()
1201 if(type == TYCHAR) { in putcall()
1203 fval = fmktemp(TYCHAR, qq->vleng); in putcall()
1221 if(type==TYCHAR) in putcall()
1228 p2 = putaddr(q, indir && q->vtype!=TYCHAR); in putcall()
1426 case TYCHAR: in fprint()
H A Dexec.c272 p->vtype = TYCHAR;
278 else if(p->vtype != TYCHAR)
H A Dinit.c285 if(type != TYCHAR)
H A Dgram.dcl40 | SCHARACTER { $$ = TYCHAR; }