fix handling for execute_cpred.

This commit is contained in:
Vítor Santos Costa 2012-03-09 12:06:43 +00:00
parent 36acb5f897
commit b01261eed5

View File

@ -930,9 +930,9 @@ prof_alrm(int signo, siginfo_t *si, void *scv)
if (oop == _call_cpred || oop == _call_usercpred) { if (oop == _call_cpred || oop == _call_usercpred) {
/* doing C-code */ /* doing C-code */
current_p = PREVOP(P,Osbpp)->u.Osbpp.p->CodeOfPred; current_p = PREVOP(P,Osbpp)->u.Osbpp.p->CodeOfPred;
} else if ((oop = Yap_op_from_opcode(PREVOP(P,pp)->opc)) == _execute_cpred) { } else if ((oop = Yap_op_from_opcode(P->opc)) == _execute_cpred) {
/* doing C-code */ /* doing C-code */
current_p = PREVOP(P,pp)->u.pp.p->CodeOfPred; current_p = P->u.pp.p->CodeOfPred;
} else { } else {
current_p = P; current_p = P;
} }