From c14a52c419a12d11b2f111d8fe9fad1812131d27 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Mon, 15 Sep 2003 10:53:10 +0000
Subject: [PATCH] fix memory expansion

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@868 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/index.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C/index.c b/C/index.c
index c16e7350b..4ae291b2a 100644
--- 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);
     }