55 lines
1.5 KiB
Diff
55 lines
1.5 KiB
Diff
diff -rbud gc6.5/include/gc.h gc6.5.patched/include/gc.h
|
|
--- gc6.5/include/gc.h Sat May 21 05:50:58 2005
|
|
+++ gc6.5.patched/include/gc.h Sat Jun 25 00:11:18 2005
|
|
@@ -779,6 +779,11 @@
|
|
GC_API GC_PTR GC_call_with_alloc_lock
|
|
GC_PROTO((GC_fn_type fn, GC_PTR client_data));
|
|
|
|
+GC_API GC_warn_proc GC_set_warn_proc GC_PROTO((GC_warn_proc p));
|
|
+
|
|
+/* Sets the leak handler to be called when an object is leaked. */
|
|
+GC_API void GC_set_leak_handler(void (*lh)(void*, int));
|
|
+
|
|
/* The following routines are primarily intended for use with a */
|
|
/* preprocessor which inserts calls to check C pointer arithmetic. */
|
|
/* They indicate failure by invoking the corresponding _print_proc. */
|
|
diff -rbud gc6.5/reclaim.c gc6.5.patched/reclaim.c
|
|
--- gc6.5/reclaim.c Tue Nov 23 06:58:18 2004
|
|
+++ gc6.5.patched/reclaim.c Sat Jun 25 00:52:18 2005
|
|
@@ -36,6 +36,14 @@
|
|
|
|
GC_bool GC_have_errors = FALSE;
|
|
|
|
+static void (*leak_handler)(void*, int);
|
|
+
|
|
+void
|
|
+GC_set_leak_handler(void (*lh)(void*, int))
|
|
+{
|
|
+ leak_handler = lh;
|
|
+}
|
|
+
|
|
void GC_add_leaked(leaked)
|
|
ptr_t leaked;
|
|
{
|
|
@@ -64,6 +72,12 @@
|
|
if (GC_debugging_started) GC_print_all_smashed();
|
|
for (i = 0; i < GC_n_leaked; ++i) {
|
|
ptr_t p = GC_leaked[i];
|
|
+ if (leak_handler)
|
|
+ {
|
|
+ leak_handler(GC_base(p), GC_size(GC_base(p)));
|
|
+ }
|
|
+ else
|
|
+ {
|
|
if (HDR(p) -> hb_obj_kind == PTRFREE) {
|
|
GC_err_printf0("Leaked atomic object at ");
|
|
} else {
|
|
@@ -71,6 +85,7 @@
|
|
}
|
|
GC_print_heap_obj(p);
|
|
GC_err_printf0("\n");
|
|
+ }
|
|
GC_free(p);
|
|
GC_leaked[i] = 0;
|
|
}
|