fix handling for execute_cpred.
This commit is contained in:
parent
36acb5f897
commit
b01261eed5
@ -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;
|
||||||
}
|
}
|
||||||
|
Reference in New Issue
Block a user