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

fix while.

Browse Source
This commit is contained in:
Vítor Santos Costa 2011-11-30 13:02:20 +00:00
parent 6c1cf7ea39
commit 7da303450f
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/c_interface.c
View File

@ -992,7 +992,7 @@ YAP_MkListFromTerms(Term *ta, Int sz)
if (sz == 0) if (sz == 0)
return TermNil; return TermNil;
BACKUP_H(); BACKUP_H();
if (H+sz*2 > ASP-1024) { while (H+sz*2 > ASP-1024) {
Int sl1 = Yap_InitSlot((CELL)ta PASS_REGS); Int sl1 = Yap_InitSlot((CELL)ta PASS_REGS);
RECOVER_H(); RECOVER_H();
if (!dogc( PASS_REGS1 )) { if (!dogc( PASS_REGS1 )) {