fix memory expansion

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@868 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2003-09-15 10:53:10 +00:00 · 2003-09-15 10:53:10 +00:00 · c14a52c419
commit c14a52c419
parent 98578b16dc
1 changed files with 1 additions and 1 deletions
--- a/C/index.c
+++ b/C/index.c
@ -3226,7 +3226,7 @@ static ClauseDef *
 copy_clauses(ClauseDef *max0, ClauseDef *min0, CELL *top)
 {
  UInt sz = ((max0+1)-min0)*sizeof(ClauseDef);
-  if ((char *)top + sz > Yap_TrailTop) {
+  while ((char *)top + sz > Yap_TrailTop) {
    if(!Yap_growtrail (sizeof(CELL) * 16 * 1024L)) {
      longjmp(Yap_CompilerBotch,3);
    }