f2c-20200916/src/exec.c

38 	expptr p;  in exif()
40 exif(expptr p)
51 	expptr p;  in exelif()
53 exelif(expptr p)
187  static expptr
189 cktype1(p) expptr p;  in cktype1()
191 cktype1(expptr p)
216 		p = (expptr) t;
221 			c->datap = (char*)cktype1((expptr)c->datap);
226 			cktype1((expptr)p->primblock.argsp);
242 	register expptr rp;
244 exequals(register struct Primblock *lp, register expptr rp)
250 		frexpr((expptr)lp);
264 		expptr new_lp, new_rp;
268 			lp = (struct Primblock *)cktype1((expptr)lp);
288 	expptr rp;
290 mkstfunct(struct Primblock *lp, expptr rp)
365 	register expptr p;
399 	register expptr p;
401 exstop(int stop, register expptr p)
424 				p->constblock.vleng = (expptr) ICON(n);
427 				p = (expptr) mkstrcon(0, CNULL);
432 			p = (expptr) mkstrcon(0, CNULL);
435 	else	p = (expptr) mkstrcon(0, CNULL);
438 	expptr subr_call;
475 	register expptr p;
483 	expptr doinit;		/* constant or register for init param */
484 	expptr par[3];		/* local specification parameters */
486 	expptr init, test, inc;	/* Expressions in the resulting FOR loop */
520 		putwhile((expptr)spec->nextp);
576 		DOINCR = (expptr) ICON(1);
596 	   	ctlstack->doinit = doinit = (expptr) mktmp0(dotype, ENULL);
598 		doinit = (expptr) mktmp(dotype, ENULL);
608 		ctlstack->domax = (expptr) mktmp0(dotype, ENULL);
625 		ctlstack->dostep = (expptr) mktmp0(dotype, ENULL);
638 			    mkexpr (OPGE, cpexpr((expptr)dovarp),
640 			    mkexpr (OPLE, cpexpr((expptr)dovarp),
644 	        test = mkexpr (OPLE, cpexpr((expptr)dovarp),
648 	        test = mkexpr (OPGE, cpexpr((expptr)dovarp),
658 		    mkexpr (OPEQ, cpexpr((expptr)dovarp), cpexpr (doinit)));
659 	init = mkexpr (OPASSIGN, cpexpr((expptr)dovarp),
661 	inc = mkexpr (OPPLUSEQ, (expptr)dovarp, cpexpr (ctlstack -> dostep));
665 	    expptr tester;
724 	register expptr e;
739 				puteq((expptr)ap, (expptr)mkplace(np));
831 		putout(mkexpr(OPASSIGN, (expptr)p, mkintcon(k)));
853 		putout(mkexpr(OPASSIGN, (expptr)p, (expptr)q));
862 	expptr expr;  in exarif()
867 exarif(expptr expr, struct Labelblock *neglab, struct Labelblock *zerlab, struct Labelblock *poslab)
893             expptr t;
896 		t = (expptr) mktmp(expr -> headblock.vtype, ENULL);
899 		t = (expptr) cpexpr (expr);
922 	expptr e;
926 exar2(int op, expptr e, struct Labelblock *l1, struct Labelblock *l2)
929 	expptr comp;
946 	register expptr p;  in exreturn()
948 exreturn(register expptr p)
965 	    p1_subr_ret((expptr)retslot);