Home
last modified time | relevance | path

Searched refs:cpexpr (Results 1 – 10 of 10) sorted by relevance

/netbsd-src/external/bsd/pcc/dist/pcc/f77/fcom/
H A Dio.c389 p = cpexpr(p);
438 putio( fixtype(cpexpr(qn->b_name.vdim->nelt)),
445 else if( (qe = fixtype(cpexpr(q)))->tag==TADDR)
452 puteq( cpexpr(tp), qe);
510 putif( mkexpr(OPGE, cpexpr(IOSTP), MKICON(0)), ioendlab); in endio()
513 cpexpr(IOSTP), MKICON(0)) , ioerrlab); in endio()
528 q = fixexpr( mkexpr(OPASSIGN, cpexpr(IOSTP), q));
552 ioset(TYIOINT, XREC, cpexpr(p) ); in startrw()
563 ioset(TYIOINT, XUNIT, cpexpr(p) ); in startrw()
571 nump = cpexpr(np->b_name.vdim->nelt); in startrw()
[all …]
H A Dputscj.c217 putexpr(mkexpr(OPASSIGN, cpexpr(x1), p)); in prarif()
218 putif(mkexpr(OPGE, cpexpr(x1), MKICON(0)), neg); in prarif()
284 putexpr(mkexpr(OPASSIGN, cpexpr(y), x)); in putcmgo()
292 putif(mkexpr(OPNE, cpexpr(y), MKICON(i+1)), labels[i]->labelno); in putcmgo()
430 putexpr(mkexpr(OPASSIGN, cpexpr(x1), in putx()
435 putexpr(mkexpr(OPASSIGN, cpexpr(x1), in putx()
443 putexpr(mkexpr(OPASSIGN, cpexpr(x1), in putx()
447 putexpr(mkexpr(OPASSIGN, cpexpr(x1), in putx()
455 putexpr(mkexpr(OPASSIGN, cpexpr(x1), in putx()
462 putexpr(mkexpr(OPASSIGN, cpexpr(x1), in putx()
[all …]
H A Dexec.c397 puteq(cpexpr(dovarp), cpexpr(DOINIT));
403 mkexpr(OPMINUS, cpexpr(ctlstack->domax), cpexpr(DOINIT)) );
415 q = cpexpr(ctlstack->domax);
417 q = mkexpr(OPASSIGN, cpexpr(ctlstack->domax), DOLIMIT);
419 q1 = mkexpr(OPASSIGN, cpexpr(dovarp), DOINIT);
426 puteq( cpexpr(ctlstack->domax), DOLIMIT);
430 mkexpr(OPASSIGN, cpexpr(ctlstack->dostep), DOINCR) );
431 puteq( cpexpr(dovarp), q);
433 puteq( cpexpr(ctlstack->dostep), DOINCR);
441 putif( mkexpr(OPGE, cpexpr(ctlstack->dostep), MKICON(0)),
[all …]
H A Dexpr.c231 cpexpr(p) in cpexpr() function
264 e->vleng = cpexpr(e->vleng);
270 e->b_expr.leftp = cpexpr(p->b_expr.leftp);
271 e->b_expr.rightp = cpexpr(p->b_expr.rightp);
277 ep = e->b_list.listp = mkchain( cpexpr(pp->chain.datap), NULL);
279 ep = ep->chain.nextp = mkchain( cpexpr(pp->chain.datap), NULL);
284 e->vleng = cpexpr(e->vleng);
285 e->b_addr.memoffset = cpexpr(e->b_addr.memoffset);
290 e->b_prim.argsp = cpexpr(e->b_prim.argsp);
291 e->b_prim.fcharp = cpexpr(e->b_prim.fcharp);
[all …]
H A Ddata.c120 q = fixtype(cpexpr(ip->b_impldo.implb));
127 q = fixtype(cpexpr(ip->b_impldo.impstep));
136 q = fixtype(cpexpr(ip->b_impldo.impub));
190 q = mklhs( cpexpr(pp) );
H A Dput.c115 q = cpexpr(p); in realpart()
130 q = cpexpr(p); in imagpart()
154 q->vleng = cpexpr(p->vleng); in putconst()
H A Dintr.c578 putexpr(mkexpr(OPASSIGN, cpexpr(t), args->chain.datap)); in finline()
582 x1 = mkexpr(OPLE, cpexpr(t), mkconv(type,MKICON(0))); in finline()
587 putexpr(mkexpr(OPASSIGN, cpexpr(t), in finline()
588 mkexpr(OPNEG, cpexpr(t), NULL))); in finline()
598 q = cpexpr(args->chain.datap->vleng); in finline()
H A Dproc.c241 putbranch( cpexpr(typeaddr) ); in epicode()
278 p = cpexpr(retslot);
285 p = cpexpr(retslot);
869 q = mkexpr(OPMINUS, q, cpexpr(dims[i].lb));
882 p->nelt = mkexpr(OPSTAR, p->nelt, cpexpr(p->dims[i].dimsize));
896 q = mkexpr(OPPLUS, t, mkexpr(OPSTAR, cpexpr(p->dims[i].dimsize), q) );
H A Dgram.expr78 $$ = cpexpr($1->b_param.paramval);
H A Ddefs.h478 bigptr cpexpr(bigptr), mkprim(bigptr, struct bigblock *, bigptr, bigptr);