diff options
Diffstat (limited to 'libguile/gc-malloc.c')
-rw-r--r-- | libguile/gc-malloc.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/libguile/gc-malloc.c b/libguile/gc-malloc.c index c64ea2f33..a7dab2a7e 100644 --- a/libguile/gc-malloc.c +++ b/libguile/gc-malloc.c @@ -89,12 +89,14 @@ scm_realloc (void *mem, size_t size) { void *ptr; + scm_gc_register_allocation (size); + SCM_SYSCALL (ptr = realloc (mem, size)); if (ptr) return ptr; /* Time is hard: trigger a full, ``stop-the-world'' GC, and try again. */ - GC_gcollect (); + GC_gcollect_and_unmap (); SCM_SYSCALL (ptr = realloc (mem, size)); if (ptr) |