diff options
author | Chris K. Jester-Young <cky944@gmail.com> | 2011-12-08 21:13:30 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-12-08 21:14:06 +0100 |
commit | 4eb286127c41e67eb90ef1b69f61f613bcd830b2 (patch) | |
tree | 579434eac5a642346037d10035d959d419ca75d1 /libguile/gc-malloc.c | |
parent | e7b2efd582a6146cd9e9c82a905b3e87bb86d046 (diff) | |
download | guile-4eb286127c41e67eb90ef1b69f61f613bcd830b2.tar.gz |
fix compilation with gc 7.1
* configure.ac: Add checks for GC_gcollect_and_unmap and
GC_get_unmapped_bytes.
* libguile/gc-malloc.c (scm_realloc): GC_gcollect() if we don't have
GC_gcollect_and_unmap.
* libguile/gc.c (GC_get_heap_usage_safe): Likewise, don't
GC_get_unmapped_bytes if the function doesn't exist.
Diffstat (limited to 'libguile/gc-malloc.c')
-rw-r--r-- | libguile/gc-malloc.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/libguile/gc-malloc.c b/libguile/gc-malloc.c index 72142caaa..b7781f3e7 100644 --- a/libguile/gc-malloc.c +++ b/libguile/gc-malloc.c @@ -96,7 +96,11 @@ scm_realloc (void *mem, size_t size) return ptr; /* Time is hard: trigger a full, ``stop-the-world'' GC, and try again. */ +#ifdef HAVE_GC_GCOLLECT_AND_UNMAP GC_gcollect_and_unmap (); +#else + GC_gcollect (); +#endif SCM_SYSCALL (ptr = realloc (mem, size)); if (ptr) |