[Mldonkey-commits] Changes to mldonkey/src/networks/fasttrack/fasttrackGlobals.ml

[mldonkey-commits]

Index: mldonkey/src/networks/fasttrack/fasttrackGlobals.ml
diff -u mldonkey/src/networks/fasttrack/fasttrackGlobals.ml:1.25 
mldonkey/src/networks/fasttrack/fasttrackGlobals.ml:1.26
--- mldonkey/src/networks/fasttrack/fasttrackGlobals.ml:1.25    Sun Aug  7 
12:57:22 2005
+++ mldonkey/src/networks/fasttrack/fasttrackGlobals.ml Fri Sep  2 23:48:54 2005
@@ -500,3 +500,12 @@
       String2.replace_char !ft_client_name ' ' '_';
     end;
   !ft_client_name
+
+(*************************************************************
+ Define a function to be called when the "mem_stats" command
+   is used to display information on structure footprint.
+**************************************************************)
+
+let _ =
+  Heap.add_memstat "FasttrackGlobals" (fun level buf ->
+     Printf.bprintf buf "Number of old files: %d\n" (List.length !!old_files))