From 394b3e08e101ef87688cac8000800c7b2a29ee03 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Tue, 30 Mar 2010 09:15:02 +0100
Subject: [PATCH] make sure we never ask for less than what we were asked for 
 (growtrail).

---
 C/grow.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/C/grow.c b/C/grow.c
index 53e735866..a5f4fba73 100644
--- a/C/grow.c
+++ b/C/grow.c
@@ -1655,19 +1655,22 @@ static int do_growtrail(long size, int contiguous_only, int in_parser, tr_fr_ptr
 {
   UInt start_growth_time = Yap_cputime(), growth_time;
   int gc_verbose = Yap_is_gc_verbose();
+  long size0 = size;
 
 #if USE_SYSTEM_MALLOC
   if (contiguous_only)
     return FALSE;
 #endif
   /* at least 64K for trail */
-  if (!size)
+  if (!size) 
     size = ((ADDR)TR-Yap_TrailBase);
   size *= 2;
   if (size < YAP_ALLOC_SIZE)
     size = YAP_ALLOC_SIZE;
   if (size > 2048*1024)
     size = 2048*1024;
+  if (size < size0)
+    size=size0;
   /* adjust to a multiple of 256) */
   size = AdjustPageSize(size);
   trail_overflows++;