[Mldonkey-commits] mldonkey distrib/ChangeLog src/daemon/driver/dr...

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Changes by:     spiralvoice <spiralvoice>       06/09/13 08:44:03

Modified files:
        distrib        : ChangeLog 
        src/daemon/driver: driverCommands.ml 

Log message:
        patch #5385

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/distrib/ChangeLog?cvsroot=mldonkey&r1=1.1000&r2=1.1001
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/daemon/driver/driverCommands.ml?cvsroot=mldonkey&r1=1.172&r2=1.173

Patches:
Index: distrib/ChangeLog
===================================================================
RCS file: /sources/mldonkey/mldonkey/distrib/ChangeLog,v
retrieving revision 1.1000
retrieving revision 1.1001
diff -u -b -r1.1000 -r1.1001
--- distrib/ChangeLog   12 Sep 2006 22:47:11 -0000      1.1000
+++ distrib/ChangeLog   13 Sep 2006 08:44:03 -0000      1.1001
@@ -15,6 +15,7 @@
 =========
 
 2006/09/13
+5385: Command mem_stats: verbosity 0 is default now
 5360: patch removed, it does not fix the bug
 5383: BT: Detect new client types (thx to pango)
 - fix Mainline detection for two-digit version numbers

Index: src/daemon/driver/driverCommands.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/daemon/driver/driverCommands.ml,v
retrieving revision 1.172
retrieving revision 1.173
diff -u -b -r1.172 -r1.173
--- src/daemon/driver/driverCommands.ml 5 Sep 2006 14:18:24 -0000       1.172
+++ src/daemon/driver/driverCommands.ml 13 Sep 2006 08:44:03 -0000      1.173
@@ -3138,11 +3138,14 @@
 
     ), "<theme> :\t\t\tselect html_theme";
 
-    "mem_stats", Arg_one (fun level o ->
+    "mem_stats", Arg_multiple (fun args o ->
         let buf = o.conn_buf in
-        Heap.print_memstats (int_of_string level) buf (use_html_mods o);
+       let level = match args with
+         [] -> 0
+       | n :: _ -> int_of_string n in
+        Heap.print_memstats level buf (use_html_mods o);
         ""
-    ), ":\t\t\t\tprint memory stats";
+    ), ":\t\t\t\tprint memory stats [<verbosity #num>]";
 
     "close_all_sockets", Arg_none (fun o ->
         BasicSocket.close_all ();