From 9adbf27f4e0656f489c8c9fa941da023ee4201ec Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 8 Mar 2012 23:50:41 +0100 Subject: more libgc 7.1 compat * configure.ac: * libguile/gc.c (GC_set_finalize_on_demand): Check for this function, and shim if it isn't present. --- configure.ac | 2 +- libguile/gc.c | 8 ++++++++ 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/configure.ac b/configure.ac index c9a443b56..c506b392e 100644 --- a/configure.ac +++ b/configure.ac @@ -1232,7 +1232,7 @@ save_LIBS="$LIBS" LIBS="$BDW_GC_LIBS $LIBS" CFLAGS="$BDW_GC_CFLAGS $CFLAGS" -AC_CHECK_FUNCS([GC_do_blocking GC_call_with_gc_active GC_pthread_exit GC_pthread_cancel GC_allow_register_threads GC_pthread_sigmask GC_set_start_callback GC_get_heap_usage_safe GC_get_free_space_divisor GC_gcollect_and_unmap GC_get_unmapped_bytes GC_set_finalizer_notifier]) +AC_CHECK_FUNCS([GC_do_blocking GC_call_with_gc_active GC_pthread_exit GC_pthread_cancel GC_allow_register_threads GC_pthread_sigmask GC_set_start_callback GC_get_heap_usage_safe GC_get_free_space_divisor GC_gcollect_and_unmap GC_get_unmapped_bytes GC_set_finalizer_notifier GC_set_finalize_on_demand]) # Though the `GC_do_blocking ()' symbol is present in GC 7.1, it is not # declared, and has a different type (returning void instead of diff --git a/libguile/gc.c b/libguile/gc.c index b1f160597..06b5044e5 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -618,6 +618,14 @@ scm_getenv_int (const char *var, int def) return res; } +#ifndef HAVE_GC_SET_FINALIZE_ON_DEMAND +static void +GC_set_finalize_on_demand (int foo) +{ + GC_finalize_on_demand = foo; +} +#endif + void scm_storage_prehistory () { -- cgit v1.2.3