1 diff -rbud gc6.5/include/gc.h gc6.5.patched/include/gc.h
2 --- gc6.5/include/gc.h Sat May 21 05:50:58 2005
3 +++ gc6.5.patched/include/gc.h Sat Jun 25 00:11:18 2005
5 GC_API GC_PTR GC_call_with_alloc_lock
6 GC_PROTO((GC_fn_type fn, GC_PTR client_data));
8 +GC_API GC_warn_proc GC_set_warn_proc GC_PROTO((GC_warn_proc p));
10 +/* Sets the leak handler to be called when an object is leaked. */
11 +GC_API void GC_set_leak_handler(void (*lh)(void*, int));
13 /* The following routines are primarily intended for use with a */
14 /* preprocessor which inserts calls to check C pointer arithmetic. */
15 /* They indicate failure by invoking the corresponding _print_proc. */
16 diff -rbud gc6.5/reclaim.c gc6.5.patched/reclaim.c
17 --- gc6.5/reclaim.c Tue Nov 23 06:58:18 2004
18 +++ gc6.5.patched/reclaim.c Sat Jun 25 00:52:18 2005
21 GC_bool GC_have_errors = FALSE;
23 +static void (*leak_handler)(void*, int);
26 +GC_set_leak_handler(void (*lh)(void*, int))
31 void GC_add_leaked(leaked)
35 if (GC_debugging_started) GC_print_all_smashed();
36 for (i = 0; i < GC_n_leaked; ++i) {
37 ptr_t p = GC_leaked[i];
40 + leak_handler(GC_base(p), GC_size(GC_base(p)));
44 if (HDR(p) -> hb_obj_kind == PTRFREE) {
45 GC_err_printf0("Leaked atomic object at ");