startprofile = profile;
pr_xstatement = st - pr_statements;
pr_argc = st->op - OP_CALL0;
- if (!OPA->function)
+ if (!OPA->function )
Host_Error("NULL function");
+ else if (OPA->function > (unsigned) progs->numfunctions)
+ Host_Error("Bad function number");
newf = &pr_functions[OPA->function];
}
else
st = pr_statements + PR_EnterFunction(newf);
+ if (pr_trace != cachedpr_trace)
+ goto chooseexecprogram;
break;
case OP_DONE: