force system to check for overflows at end of procceed for clauses with body.

This commit is contained in:
Vitor Santos Costa
2010-10-11 14:45:15 +01:00
parent f40ba3e6db
commit e5232bc8fc
8 changed files with 33 additions and 4 deletions

View File

@@ -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;