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

Simplify the creation of the SMOB GC "kind".

Browse source 
* libguile/smob.c (smob_freelist): Remove.
  (scm_smob_prehistory): Adjust accordingly.
This commit is contained in:
Ludovic Courtès 2009-08-20 01:16:38 +02:00
parent aec3d99bcd
commit 1f7de76940
1 changed files with 3 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/smob.c
View file

@ -496,10 +496,8 @@ free_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
/* Marking SMOBs using user-supplied mark procedures. */
/* The freelist and GC kind used for SMOB types that provide a custom mark
procedure. */
static void **smob_freelist = NULL;
static int smob_gc_kind = 0;
/* The GC kind used for SMOB types that provide a custom mark procedure. */
static int smob_gc_kind;
/* The generic SMOB mark procedure that gets called for SMOBs allocated with
@ -636,8 +634,7 @@ scm_smob_prehistory ()
long i;
scm_t_bits tc;
smob_freelist = GC_new_free_list ();
smob_gc_kind = GC_new_kind ((void **)smob_freelist,
smob_gc_kind = GC_new_kind (GC_new_free_list (),
GC_MAKE_PROC (GC_new_proc (smob_mark), 0),
0,
/* Clear new objects. As of version 7.1, libgc