diff --git a/C/grow.c b/C/grow.c index 0d405b713..91ef8afcf 100755 --- a/C/grow.c +++ b/C/grow.c @@ -1825,7 +1825,7 @@ int Yap_locked_growtrail(long size, int contiguous_only) { CACHE_REGS - return do_growtrail(size, contiguous_only, FALSE, NULL, NULL, NULL PASS_REGS); + return do_growtrail(size, contiguous_only, FALSE, NULL, NULL, NULL PASS_REGS); } int diff --git a/C/heapgc.c b/C/heapgc.c index 7eac9e03f..22ecb3b87 100755 --- a/C/heapgc.c +++ b/C/heapgc.c @@ -3992,7 +3992,7 @@ do_gc(Int predarity, CELL *current_env, yamop *nextop USES_REGS) #if !USE_SYSTEM_MALLOC if (HeapTop >= LOCAL_GlobalBase - MinHeapGap) { *--ASP = (CELL)current_env; - if (!Yap_growheap(FALSE, MinHeapGap, NULL)) { + if (!Yap_locked_growheap(FALSE, MinHeapGap, NULL)) { Yap_Error(OUT_OF_HEAP_ERROR, TermNil, LOCAL_ErrorMessage); return -1; } @@ -4014,7 +4014,7 @@ do_gc(Int predarity, CELL *current_env, yamop *nextop USES_REGS) *--ASP = (CELL)current_env; if ( - !Yap_growtrail(sz, FALSE) + !Yap_locked_growtrail(sz, FALSE) ) { Yap_Error(OUT_OF_TRAIL_ERROR,TermNil,"out of %lB during gc", sz); return -1;