From 9665ab83ee15d870e78112b2b5f763ae631b6727 Mon Sep 17 00:00:00 2001
From: Dave Love <fx@gnu.org>
Date: Fri, 6 Jun 2003 09:43:51 +0000
Subject: [PATCH] (GC_custom_finalize): New. (GC_finalize): Use it.

---
 gc/finalize.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/gc/finalize.c b/gc/finalize.c
index 8350605b110..8703e0bf3a3 100644
--- 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
-- 
2.39.5