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

don't forget that gc may not give you all the space you want the first

Browse Source 
time: stdpreds.c


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@660 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-10-29 04:19:09 +00:00
parent 4e80f5feeb
commit 6a4f06cde6
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
C/stdpreds.c
View File

@ -1264,10 +1264,17 @@ p_univ(void)
*p++ = Deref(*q++); *p++ = Deref(*q++);
} }
twork = ArrayToList(CellPtr(TR), argno - 1); twork = ArrayToList(CellPtr(TR), argno - 1);
while (IsIntTerm(twork)) {
if (!gc(2, ENV, P)) {
Error(OUT_OF_STACK_ERROR, TermNil, ErrorMessage);
return(FALSE);
}
twork = ArrayToList(CellPtr(TR), argno - 1);
}
} else } else
#endif #endif
{ {
if (H+arity*2 > ASP-1024) { while (H+arity*2 > ASP-1024) {
if (!gc(2, ENV, P)) { if (!gc(2, ENV, P)) {
Error(OUT_OF_STACK_ERROR, TermNil, ErrorMessage); Error(OUT_OF_STACK_ERROR, TermNil, ErrorMessage);
return(FALSE); return(FALSE);