diogo
/
yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

allow garbage collection when we store error term.

This commit is contained in:
Vitor Santos Costa 2009-04-26 10:48:32 -05:00
parent 2b79d5aada
commit 4cdfbae62a
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C/errors.c
View File

@ -1769,13 +1769,15 @@ Yap_Error(yap_error_number type, Term where, char *format,...)
/* disable active signals at this point */
ActiveSignals = 0;
CreepFlag = CalculateStackGap();
Yap_PrologMode &= ~InErrorMode;
if (type == PURE_ABORT)
Yap_JumpToEnv(MkAtomTerm(AtomDAbort));
else
Yap_JumpToEnv(Yap_MkApplTerm(fun, 2, nt));
P = (yamop *)FAILCODE;
} else {
Yap_PrologMode &= ~InErrorMode;
}
Yap_PrologMode &= ~InErrorMode;
return P;
}