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

fix back tracer.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@989 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2004-02-14 00:41:12 +00:00
parent 8e18b8cdf7
commit b65681fe82
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
C/dbase.c
View File

@ -4669,7 +4669,7 @@ p_init_queue(void)
while ((dbq = (db_queue *)AllocDBSpace(sizeof(db_queue))) == NULL) { while ((dbq = (db_queue *)AllocDBSpace(sizeof(db_queue))) == NULL) {
if (!Yap_growheap(FALSE, sizeof(db_queue), NULL)) { if (!Yap_growheap(FALSE, sizeof(db_queue), NULL)) {
Yap_Error(SYSTEM_ERROR, TermNil, Yap_ErrorMessage); Yap_Error(OUT_OF_HEAP_ERROR, TermNil, "in findall");
return(FALSE); return(FALSE);
} }
} }
@ -4697,10 +4697,12 @@ p_enqueue(void)
return(FALSE); return(FALSE);
} else } else
father_key = (db_queue *)DBRefOfTerm(Father); father_key = (db_queue *)DBRefOfTerm(Father);
if ((x = (QueueEntry *)AllocDBSpace(sizeof(QueueEntry))) == NULL) { while ((x = (QueueEntry *)AllocDBSpace(sizeof(QueueEntry))) == NULL) {
Yap_Error(OUT_OF_STACK_ERROR, TermNil, "in findall"); if (!Yap_growheap(FALSE, sizeof(QueueEntry), NULL)) {
Yap_Error(OUT_OF_HEAP_ERROR, TermNil, "in findall");
return FALSE; return FALSE;
} }
}
x->DBT = StoreTermInDB(Deref(ARG2), 2); x->DBT = StoreTermInDB(Deref(ARG2), 2);
if (x->DBT == NULL) if (x->DBT == NULL)
return FALSE; return FALSE;