(GC_custom_finalize): New.

(GC_finalize): Use it.

diff --git a/gc/finalize.c b/gc/finalize.c
index 8350605b110d2e522ae704a7a496e44aff2f0afd..8703e0bf3a35b782dd3978674308d99e258dc2be 100644 (file)
--- a/gc/finalize.c
+++ b/gc/finalize.c
@@ -46,6 +46,8 @@ struct hash_chain_entry {
 unsigned GC_finalization_failures = 0;
        /* Number of finalization requests that failed for lack of memory. */
 
+void (*GC_custom_finalize)(void);
+
 static struct disappearing_link {
     struct hash_chain_entry prolog;
 #   define dl_hidden_link prolog.hidden_key
@@ -665,6 +667,8 @@ void GC_finalize()
         }
       }
     }
+    if (GC_custom_finalize)
+      GC_custom_finalize();
 }
 
 #ifndef JAVA_FINALIZATION_NOT_NEEDED