mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

Eliminate uses of GC_PTR, a holdover from libgc 6.x.

Browse source 
* libguile/bdw-gc.h (GC_PTR): Don't define.
* libguile/finalizers.c (scm_i_set_finalizer): Use void* instead of
  GC_PTR.
* libguile/foreign.c (pointer_finalizer_trampoline): Likewise.
* libguile/guardians.c (finalize_guarded, scm_i_guard): Likewise.
* libguile/numbers.c (finalize_bignum): Likewise.
* libguile/ports.c (finalize_port, finalize_iconv_descriptors): Likewise.
* libguile/smob.c (finalize_smob): Likewise.
* libguile/struct.c (struct_finalizer_trampoline): Likewise.
* libguile/weak-set.c (move_weak_entry, resize_set):
  (weak_set_add_x, weak_set_remove_x): Likewise, but also change some
  casts that should've been GC_PTR* to void**, and don't cast pointer
  values to void*.
* libguile/weak-table.c (register_disappearing_links):
  (unregister_disappearing_links, move_disappearing_links): Likewise.
* libguile/weak-vector.c (scm_c_weak_vector_set_x): Likewise.
This commit is contained in:
Ken Raeburn 2012-05-20 16:08:54 -04:00
parent ea17899018
commit 499f3de0d7
11 changed files with 34 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/struct.c
View file

@ -411,7 +411,7 @@ SCM_DEFINE (scm_struct_vtable_p, "struct-vtable?", 1, 0, 0,
/* Finalization: invoke the finalizer of the struct pointed to by PTR. */
static void
struct_finalizer_trampoline (GC_PTR ptr, GC_PTR unused_data)
struct_finalizer_trampoline (void *ptr, void *unused_data)
{
SCM obj = PTR2SCM (ptr);
scm_t_struct_finalize finalize = SCM_STRUCT_FINALIZER (obj);