Home | History | Annotate | Download | only in dist

Lines Matching refs:frp

229 struct Frame *frp = NULL;	/* frame pointer. bottom level unused */
246 		frp = frame = (struct Frame *) calloc(nframe += 100, sizeof(*frame));
253 	DPRINTF("calling %s, %d args (%d in defn), frp=%d\n", s, ncall, ndef, (int) (frp-frame));
260 		DPRINTF("evaluate args[%d], frp=%d:\n", i, (int) (frp-frame));
277 	frp++;	/* now ok to up frame */
278 	if (frp >= frame + nframe) {
279 		int dfp = frp - frame;	/* old index */
283 		frp = frame + dfp;
285 	frp->fcncell = fcn;
286 	frp->args = args;
287 	frp->nargs = ndef;	/* number defined with (excess are locals) */
288 	frp->retval = gettemp();
290 	DPRINTF("start exec of %s, frp=%d\n", s, (int) (frp-frame));
292 	DPRINTF("finished exec of %s, frp=%d\n", s, (int) (frp-frame));
295 		Cell *t = frp->args[i];
324 	z = frp->retval;			/* return value */
326 	frp--;
353 	DPRINTF("arg(%d), frp->nargs=%d\n", n, frp->nargs);
354 	if (n+1 > frp->nargs)
356 			n+1, frp->fcncell->nval);
357 	return frp->args[n];
376 				setsval(frp->retval, getsval(y));
377 				frp->retval->fval = getfval(y);
378 				frp->retval->tval |= NUM;
381 				setsval(frp->retval, getsval(y));
383 				setfval(frp->retval, getfval(y));