mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

fix pre-GC_set_start_callback compilation

Browse source 
* libguile/gc.c: Move declaration of run_before_gc_hook up.
This commit is contained in:
Andy Wingo 2011-04-15 16:41:34 +00:00
parent 66b229d56e
commit 0fbdbe6c84
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
libguile/gc.c
View file

@ -198,6 +198,13 @@ scm_t_c_hook scm_after_sweep_c_hook;
scm_t_c_hook scm_after_gc_c_hook; scm_t_c_hook scm_after_gc_c_hook;
static void
run_before_gc_c_hook (void)
{
scm_c_hook_run (&scm_before_gc_c_hook, NULL);
}
/* GC Statistics Keeping /* GC Statistics Keeping
*/ */
unsigned long scm_gc_ports_collected = 0; unsigned long scm_gc_ports_collected = 0;
@ -550,12 +557,6 @@ scm_gc_unregister_roots (SCM *b, unsigned long n)
scm_gc_unregister_root (p); scm_gc_unregister_root (p);
} }
static void
run_before_gc_c_hook (void)
{
scm_c_hook_run (&scm_before_gc_c_hook, NULL);
}