src/f2c/output.c

145 	expptr e;
147 expr_out(FILE *fp, expptr e)
150     if (e == (expptr) NULL)
193 	    expptr leftp, rightp;
199 		    expptr temp = e -> exprblock.rightp;
216 	expptr leftp = e -> exprblock.leftp;
217 	expptr rightp = e -> exprblock.rightp;
263 	expptr expr;
265 out_and_free_statement(FILE *outfile, expptr expr)
279 	expptr left;  in same_ident()
280 	expptr right;
282 same_ident(expptr left, expptr right)
307 		return same_ident ((expptr) (left -> addrblock.user.name),
308 			(expptr) right -> addrblock.user.name);
384 	expptr e1;  in same_expr()
385 	expptr e2;
387 same_expr(expptr e1, expptr e2)
523 	expptr ep;
525 out_args(FILE *fp, expptr ep)
533 		expr_out(fp, (expptr)arglist->datap);
621 	expptr offset;
665 	expptr e = addrp -> memoffset;
743     if (primp -> fcharp != (expptr) NULL || primp -> lcharp != (expptr) NULL)
766 	expr_out (fp, (expptr) arg_list -> datap);
852 	register expptr lp;
1003 		expptr lp, rp;
1091 	expptr len;
1092 	expptr name;
1093 	expptr args;
1095 out_call(FILE *outfile, int op, int ftype, expptr len, expptr name, expptr args)
1107     register expptr q;
1170 	expr_out (outfile, (expptr) ret_val);
1189 	if (!( q = (expptr)cp->datap) )
1287 		expptr memoffset;
1464 		expr_out (fp, (expptr) elts -> datap);
1476 	expptr expr;
1478 out_asgoto(FILE *outfile, expptr expr)
1485     if (expr == (expptr) NULL) {
1536 	expptr expr;
1538 out_if(FILE *outfile, expptr expr)
1585 	expptr expr;
1587 elif_out(FILE *outfile, expptr expr)
1625 	expptr index;
1626 	expptr labels;
1628 compgoto_out(FILE *outfile, expptr index, expptr labels)
1659 		if (ISICON(((expptr) (elts -> datap))))
1661 			user_label(((expptr)(elts->datap))->constblock.Const.ci));
1676 	expptr init;
1677 	expptr test;
1678 	expptr inc;
1680 out_for(FILE *outfile, expptr init, expptr test, expptr inc)