src/f2c/expr.c

60  expptr
72 	return( (expptr) p );
79  expptr
91 	return( (expptr) p );
99  expptr
111 	return( (expptr) p );
119  expptr
133 	return( (expptr) p );
143  expptr
183 	return( (expptr) p );
193  expptr
212 	return( (expptr) p );
220  expptr
223 	register expptr realp;  in mkcxcon()
224 	register expptr imagp;
226 mkcxcon(register expptr realp, register expptr imagp)
269 	return( (expptr) p );
275  expptr
282 	return( (expptr) p );  in errnode()
293  expptr
297 	register expptr p;
299 mkconv(register int t, register expptr p)
302 	register expptr q;
328 		q = (expptr) mkconst(t);
353  expptr
356 	expptr p;  in opconv()
359 opconv(expptr p, int t)
362 	register expptr q;
375  expptr
378 	expptr p;  in addrof()
380 addrof(expptr p)
437 			    (expptr) cpexpr(e->constblock.vleng);
443 		e->exprblock.leftp =  (expptr) cpexpr(p->exprblock.leftp);
444 		e->exprblock.rightp = (expptr) cpexpr(p->exprblock.rightp);
460 		e->addrblock.vleng = (expptr)  cpexpr(e->addrblock.vleng);
461 		e->addrblock.memoffset = (expptr)cpexpr(e->addrblock.memoffset);
467 		    cpexpr((expptr)e->primblock.argsp);
468 		e->primblock.fcharp = (expptr) cpexpr(e->primblock.fcharp);
469 		e->primblock.lcharp = (expptr) cpexpr(e->primblock.lcharp);
521 		frexpr((expptr)p->primblock.argsp);
565  expptr
582 			return( (expptr) p);
584 		return( (expptr) putconst((Constp)p) );
588 		return( (expptr) p);
591 		return( (expptr) p);
601 			return (expptr)p;
605 		return( (expptr) p );
633 	register expptr p;  in badchleng()
635 badchleng(register expptr p)
651  static expptr
654 	expptr p;  in cplenexpr()
656 cplenexpr(expptr p)
659 	expptr rv;
674  expptr
682 	expptr lp;
683 	register expptr rp;
684 	register expptr q;
689 		return( (expptr) p );
705 		frexpr((expptr)p);
734 			frexpr((expptr)p);
747 			lp = (expptr)putconst((Constp)lp);
751 			lp = (expptr)putconst((Constp)lp);
755 		p->rightp = rp = (expptr)putconst((Constp)rp);
817 		rp = mkpower((expptr)p);
890 	return((expptr) p);
1019  expptr
1022 	expptr p0;  in mkfunct()
1024 mkfunct(expptr p0)
1032 	register expptr q;
1121 		q = mkexpr(OPCALL, (expptr)ap, (expptr)p->argsp);
1124 			q->exprblock.vleng = (expptr) cpexpr(np->vleng);
1159 	frexpr((expptr)p);
1165  static expptr
1178 	expptr Ln, Lq, q, q1, rhs, ap;
1206 	rhs = (expptr) (np->varxptr.vstfdesc->nextp);
1224 			rp->rplvp = (expptr) ap;
1229 			rp->rplvp = (expptr) mktmp(tnp->vtype, tnp->vleng);
1261 	q = (expptr) mkconv(type, fixtype(cpexpr(rhs)) );
1270 		q1 = (expptr) mktmp(type, Ln);
1349  static expptr
1358 	expptr ep;
1375 	return (expptr)Lb;
1384  expptr
1397 		return( (expptr) p );
1405 		return( (expptr) s );
1418 	frexpr((expptr)p->argsp);
1429 				p->lcharp = (expptr)(
1449 	return( (expptr) s );
1522  expptr
1531 	expptr si, size;
1533 	expptr e, e1, offp, prod;
1535 	expptr sub[MAXDIM+1];
1576 		    (expptr) cpexpr(np->vleng) : ICON(typesize[np->vtype]);
1587 			e = (expptr)mktmp(TYLONG, ENULL);
1600  expptr
1604 	register expptr p;
1606 subcheck(Namep np, register expptr p)
1610 	expptr t, checkvar, checkcond, badcall;
1638 		checkvar = (expptr) cpexpr(p);
1642 		checkvar = (expptr) mktmp(p->headblock.vtype, ENULL);
1688 			return (Addrp) cpexpr((expptr)xretslot[p->vtype]);
1725 			t->vleng = (expptr) cpexpr(p->vleng);
1788  expptr
1815 			frexpr((expptr)args);
1822 			frexpr((expptr)v);
1825 		return( (expptr) cpexpr(v->paramblock.paramval) );
1838 		p->fcharp = (expptr) substr->datap;
1839 		p->lcharp = (expptr) substr->nextp->datap;
1842 	return( (expptr) p);
1860 	expptr neltp;
1980 	expptr e;  in zeroconst()
1982 zeroconst(expptr e)
2020  expptr
2024 	register expptr lp;
2025 	register expptr rp;
2027 mkexpr(int opcode, register expptr lp, register expptr rp)
2030 	register expptr e, e1;
2319 	e = (expptr) ALLOC(Exprblock);
2534  expptr
2537 	register expptr e;  in fold()
2539 fold(register expptr e)
2543 	register expptr lp, rp;
2742 	return( (expptr) p );
3225 	register expptr p;  in conssgn()
3227 conssgn(register expptr p)
3284  LOCAL expptr
3287 	register expptr p;  in mkpower()
3289 mkpower(register expptr p)
3292 	register expptr q, lp, rp;
3316 				return( (expptr) putconst((Constp)
3362 				rp = (expptr)putconst((Constp)rp);