first cut at call counter.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@580 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2002-09-03 14:28:09 +00:00
parent 89a188d5d7
commit 94e9529128
20 changed files with 459 additions and 16 deletions

View File

@@ -2532,6 +2532,12 @@ do_pass(void)
case retry_profiled_op:
a_pl(_retry_profiled, (PredEntry *)(cpc->rnd1));
break;
case count_call_op:
a_pl(_count_call, (PredEntry *)(cpc->rnd1));
break;
case count_retry_op:
a_pl(_count_retry, (PredEntry *)(cpc->rnd1));
break;
case fetch_args_for_bccall:
if (cpc->nextInst->op != bccall_op) {
Error(SYSTEM_ERROR, TermNil, "compiling binary test", (int) cpc->op);