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

make sure we never ask for less than what we were asked for (growtrail).

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-03-30 09:15:02 +01:00
parent ca31e9fad8
commit 394b3e08e1
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
C/grow.c
View File

@ -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; UInt start_growth_time = Yap_cputime(), growth_time;
int gc_verbose = Yap_is_gc_verbose(); int gc_verbose = Yap_is_gc_verbose();
long size0 = size;
#if USE_SYSTEM_MALLOC #if USE_SYSTEM_MALLOC
if (contiguous_only) if (contiguous_only)
return FALSE; return FALSE;
#endif #endif
/* at least 64K for trail */ /* at least 64K for trail */
if (!size) if (!size)
size = ((ADDR)TR-Yap_TrailBase); size = ((ADDR)TR-Yap_TrailBase);
size *= 2; size *= 2;
if (size < YAP_ALLOC_SIZE) if (size < YAP_ALLOC_SIZE)
size = YAP_ALLOC_SIZE; size = YAP_ALLOC_SIZE;
if (size > 2048*1024) if (size > 2048*1024)
size = 2048*1024; size = 2048*1024;
if (size < size0)
size=size0;
/* adjust to a multiple of 256) */ /* adjust to a multiple of 256) */
size = AdjustPageSize(size); size = AdjustPageSize(size);
trail_overflows++; trail_overflows++;