fix an accounting error

This commit is contained in:
Bill Currie 2003-09-15 21:13:13 +00:00
parent 03d67f6177
commit fea382d1d9
1 changed files with 2 additions and 0 deletions

View File

@ -696,6 +696,8 @@ PR_ExecuteProgram (progs_t * pr, func_t fnum)
else if (&R_INT (pr) != &OPA.integer_var)
memcpy (&R_INT (pr), &OPA,
pr->pr_param_size * sizeof (OPA));
pr->pr_xfunction->profile += profile - startprofile;
startprofile = profile;
PR_LeaveFunction (pr);
st = pr->pr_statements + pr->pr_xstatement;
if (pr->pr_depth == exitdepth) {