overhaul GC finalization

diff --git a/finalize.c b/finalize.c
index acfecc8472dadbd964e1d7a87dbe7404c28f5241..869b310b02d0b57928b043c61613663d308711c9 100644 (file)
--- a/finalize.c
+++ b/finalize.c
@@ -147,6 +147,12 @@ int GC_register_disappearing_link(void * * link)
     return(GC_general_register_disappearing_link(link, base));
 }
 
+/* PLTSCHEME: GC_register_indirect_disappearing_link */
+GC_API void GC_register_indirect_disappearing_link(void **link, void *obj)
+{
+  GC_general_register_disappearing_link(link, obj);
+}
+
 /* PLTSCHEME: GC_register_late_disappearing_link */
 static int late_dl; /* a stupid way to pass arguments (to minimize my changes). */
 GC_API void GC_register_late_disappearing_link(void **link, void *obj)