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

fix handling of out stack while throwing an exception.

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-06-13 15:21:13 -05:00
parent 5a10dda14e
commit 826b45d21c
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
C/exec.c
View File

@ -1463,6 +1463,17 @@ suspended_on_current_execution(Term t, Term t0)
return t0 == ArgOfTerm(1, t1); return t0 == ArgOfTerm(1, t1);
} }
static Term
build_error(void)
{
Term ti[1], nt[2];
ti[0] = MkAtomTerm(AtomStack);
nt[0] = Yap_MkApplTerm(FunctorResourceError, 1, ti);
nt[1] = MkAtomTerm(AtomInStackExpansion);
return Yap_MkApplTerm(FunctorError, 2, nt);
}
static Term static Term
get_term(DBTerm *dbt, Term t) get_term(DBTerm *dbt, Term t)
{ {
@ -1471,12 +1482,14 @@ get_term(DBTerm *dbt, Term t)
if (Yap_Error_TYPE == OUT_OF_ATTVARS_ERROR) { if (Yap_Error_TYPE == OUT_OF_ATTVARS_ERROR) {
Yap_Error_TYPE = YAP_NO_ERROR; Yap_Error_TYPE = YAP_NO_ERROR;
if (!Yap_growglobal(NULL)) { if (!Yap_growglobal(NULL)) {
t = MkAtomTerm(AtomOutOfStackError); t = build_error();
break;
} }
} else { } else {
Yap_Error_TYPE = YAP_NO_ERROR; Yap_Error_TYPE = YAP_NO_ERROR;
if (!Yap_growstack(dbt->NOfCells*CellSize)) { if (!Yap_growstack(dbt->NOfCells*CellSize)) {
t = MkAtomTerm(AtomOutOfStackError); t = build_error();
break;
} }
} }
} }