Merge branch 'u2_10_12_branch' of git://git.code.sf.net/p/undernet-ircu/ircu2

[ircu2.10.12-pk.git] / doc / debug_memleak_gc.patch

diff --git a/doc/debug_memleak_gc.patch b/doc/debug_memleak_gc.patch
new file mode 100644 (file)
index 0000000..aeae128
--- /dev/null
+++ b/doc/debug_memleak_gc.patch
@@ -0,0 +1,54 @@
+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;
+     }