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

fix error handling

Browse Source
This commit is contained in:
Vitor Santos Costa 2013-07-22 10:42:50 -05:00
parent ab372b03af
commit 0639f86980
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/dbase.c
View File

@ -727,6 +727,7 @@ static CELL *MkDBTerm(register CELL *pt0, register CELL *pt0_end,
/* first thing, store a link to the list before we move on */ /* first thing, store a link to the list before we move on */
*StoPoint++ = AbsAppl(CodeMax); *StoPoint++ = AbsAppl(CodeMax);
/* next, postpone analysis to the rest of the current list */ /* next, postpone analysis to the rest of the current list */
CheckVisitOverflow();
#ifdef RATIONAL_TREES #ifdef RATIONAL_TREES
to_visit[0] = pt0+1; to_visit[0] = pt0+1;
to_visit[1] = pt0_end; to_visit[1] = pt0_end;
@ -742,7 +743,6 @@ static CELL *MkDBTerm(register CELL *pt0, register CELL *pt0_end,
to_visit += 3; to_visit += 3;
} }
#endif #endif
CheckVisitOverflow();
d0 = ArityOfFunctor(f); d0 = ArityOfFunctor(f);
pt0 = ap2+1; pt0 = ap2+1;
pt0_end = ap2 + d0; pt0_end = ap2 + d0;