Lines Matching defs:frp
227 struct Frame *frp = NULL; /* frame pointer. bottom level unused */
244 frp = frame = (struct Frame *) calloc(nframe += 100, sizeof(*frame));
251 DPRINTF("calling %s, %d args (%d in defn), frp=%d\n", s, ncall, ndef, (int) (frp-frame));
258 DPRINTF("evaluate args[%d], frp=%d:\n", i, (int) (frp-frame));
275 frp++; /* now ok to up frame */
276 if (frp >= frame + nframe) {
277 int dfp = frp - frame; /* old index */
281 frp = frame + dfp;
283 frp->fcncell = fcn;
284 frp->args = args;
285 frp->nargs = ndef; /* number defined with (excess are locals) */
286 frp->retval = gettemp();
288 DPRINTF("start exec of %s, frp=%d\n", s, (int) (frp-frame));
290 DPRINTF("finished exec of %s, frp=%d\n", s, (int) (frp-frame));
293 Cell *t = frp->args[i];
322 z = frp->retval; /* return value */
324 frp--;
351 DPRINTF("arg(%d), frp->nargs=%d\n", n, frp->nargs);
352 if (n+1 > frp->nargs)
354 n+1, frp->fcncell->nval);
355 return frp->args[n];
374 setsval(frp->retval, getsval(y));
375 frp->retval->fval = getfval(y);
376 frp->retval->tval |= NUM;
379 setsval(frp->retval, getsval(y));
381 setfval(frp->retval, getfval(y));