force system to check for overflows at end of procceed for clauses with body.
This commit is contained in:
@@ -3439,7 +3439,7 @@ lu_recorded(PredEntry *pe) {
|
||||
PELOCK(66,pe);
|
||||
PP = pe;
|
||||
#endif
|
||||
if (opc == _procceed) {
|
||||
if (opc == _procceed || opc == _safe_procceed) {
|
||||
P = pe->CodeOfPred;
|
||||
} else {
|
||||
if (P->opc != Yap_opcode(_execute_cpred)) {
|
||||
@@ -3504,7 +3504,7 @@ p_recorded(void)
|
||||
if (!Yap_unify(GetDBLUKey(ap), ARG1))
|
||||
return FALSE;
|
||||
|
||||
if (opc == _procceed) {
|
||||
if (opc == _procceed || opc == _safe_procceed) {
|
||||
P = cl->ClCode;
|
||||
} else {
|
||||
CP = P;
|
||||
|
Reference in New Issue
Block a user