From a3ad9dbb8f007f52ca4d3cce00cb7817bcca7f04 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Wed, 30 Apr 2003 12:57:21 +0000
Subject: [PATCH] fix bug in overflow handling

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

diff --git a/C/sysbits.c b/C/sysbits.c
index 89686bb36..552ff44ab 100644
--- a/C/sysbits.c
+++ b/C/sysbits.c
@@ -1018,7 +1018,7 @@ SearchForTrailFault(void)
   if ((TR > (tr_fr_ptr)Yap_TrailTop-1024  && 
        TR < (tr_fr_ptr)Yap_TrailTop+(64*1024))|| Yap_DBTrailOverflow()) {
     long trsize = 64*2014L;
-    while (trsize < ((CELL)TR-(CELL)Yap_TrailTop)) {
+    while ((CELL)TR > (CELL)Yap_TrailTop+trsize) {
       trsize += 64*2014L;
     }
     if (!Yap_growtrail(trsize)) {