[Mldonkey-commits] Changes to mldonkey/src/networks/gnutella/gnutellaGlobals.ml

[mldonkey-commits]

Index: mldonkey/src/networks/gnutella/gnutellaGlobals.ml
diff -u mldonkey/src/networks/gnutella/gnutellaGlobals.ml:1.30 
mldonkey/src/networks/gnutella/gnutellaGlobals.ml:1.31
--- mldonkey/src/networks/gnutella/gnutellaGlobals.ml:1.30      Mon Aug 15 
20:25:57 2005
+++ mldonkey/src/networks/gnutella/gnutellaGlobals.ml   Fri Sep  2 23:48:54 2005
@@ -576,4 +576,19 @@
   let name = !!global_login in
   let len = String.length name in
   if len < 32 then name else  String.sub name 0 32
-    
+
+(*************************************************************
+
+Define a function to be called when the "mem_stats" command
+  is used to display information on structure footprint.
+
+**************************************************************)
+
+let _ =
+(*  let network_info = CommonNetwork.network_info network in *)
+  let name = network.network_name ^ "Globals" in
+  Heap.add_memstat name (fun level buf ->
+        Printf.bprintf buf "Number of old files: %d\n" (List.length !!old_files
+  )
+);
+