[Mldonkey-commits] mldonkey distrib/ChangeLog src/networks/donkey/...

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Branch:         
Changes by:     spiralvoice <address@hidden>    05/12/17 20:10:14

Modified files:
        distrib        : ChangeLog 
        src/networks/donkey: donkeyClient.ml donkeyComplexOptions.ml 
                             donkeyGlobals.ml donkeyShare.ml 

Log message:
        patch #4717

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/mldonkey/distrib/ChangeLog.diff?tr1=1.623&tr2=1.624&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/mldonkey/mldonkey/src/networks/donkey/donkeyClient.ml.diff?tr1=1.72&tr2=1.73&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/mldonkey/mldonkey/src/networks/donkey/donkeyComplexOptions.ml.diff?tr1=1.38&tr2=1.39&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/mldonkey/mldonkey/src/networks/donkey/donkeyGlobals.ml.diff?tr1=1.61&tr2=1.62&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/mldonkey/mldonkey/src/networks/donkey/donkeyShare.ml.diff?tr1=1.31&tr2=1.32&r1=text&r2=text

Patches:
Index: mldonkey/distrib/ChangeLog
diff -u mldonkey/distrib/ChangeLog:1.623 mldonkey/distrib/ChangeLog:1.624
--- mldonkey/distrib/ChangeLog:1.623    Fri Dec 16 20:59:42 2005
+++ mldonkey/distrib/ChangeLog  Sat Dec 17 20:10:13 2005
@@ -11,6 +11,9 @@
 To compile MLDonkey on MinGW follow this guide:
 http://mldonkey.berlios.de/modules.php?name=Wiki&pagename=Windows
 
+2005/12/17
+4717: EDK: Removed unused variable file_md4s_to_register (bogeyman)
+
 2005/12/16
 4703: BT: Deactivate dead trackers,
       re-enable them if no active trackers are found (pango)
Index: mldonkey/src/networks/donkey/donkeyClient.ml
diff -u mldonkey/src/networks/donkey/donkeyClient.ml:1.72 
mldonkey/src/networks/donkey/donkeyClient.ml:1.73
--- mldonkey/src/networks/donkey/donkeyClient.ml:1.72   Wed Dec 14 21:17:46 2005
+++ mldonkey/src/networks/donkey/donkeyClient.ml        Sat Dec 17 20:10:13 2005
@@ -1519,7 +1519,6 @@
             if md4 <> file.file_md4 then begin
                 lprintf_nl () "[ERROR]: Bad list of MD4s, discarding";
               end else begin
-                file_md4s_to_register := file :: !file_md4s_to_register;
                 file.file_computed_md4s <- md4s;
                 match file.file_swarmer with
                   None -> ()
Index: mldonkey/src/networks/donkey/donkeyComplexOptions.ml
diff -u mldonkey/src/networks/donkey/donkeyComplexOptions.ml:1.38 
mldonkey/src/networks/donkey/donkeyComplexOptions.ml:1.39
--- mldonkey/src/networks/donkey/donkeyComplexOptions.ml:1.38   Wed Dec 14 
21:17:46 2005
+++ mldonkey/src/networks/donkey/donkeyComplexOptions.ml        Sat Dec 17 
20:10:13 2005
@@ -381,7 +381,6 @@
     else Array2.min file.file_chunks_age);
 *)
   
-  file_md4s_to_register := file :: !file_md4s_to_register;
   as_file file
   
 (*  
Index: mldonkey/src/networks/donkey/donkeyGlobals.ml
diff -u mldonkey/src/networks/donkey/donkeyGlobals.ml:1.61 
mldonkey/src/networks/donkey/donkeyGlobals.ml:1.62
--- mldonkey/src/networks/donkey/donkeyGlobals.ml:1.61  Wed Dec 14 21:17:46 2005
+++ mldonkey/src/networks/donkey/donkeyGlobals.ml       Sat Dec 17 20:10:13 2005
@@ -208,8 +208,6 @@
 
 let file_groups = (Hashtbl.create 1023 : (Md4.t, file_group) Hashtbl.t)
 
-let file_md4s_to_register = ref ([] : file list)
-
 module UdpClientWHashtbl = Weak.Make(struct
       type t = udp_client
       let hash c = Hashtbl.hash (c.udp_client_ip, c.udp_client_port)
@@ -783,8 +781,6 @@
   Printf.bprintf buf "  interesting_clients: %d\n" (List.length 
!interesting_clients);
   Printf.bprintf buf "  shared_files: %d\n" (List.length !shared_files);
   Printf.bprintf buf "  new_hsared_files: %d\n" (List.length 
!new_shared_files);
-  Printf.bprintf buf "  file_md4s_to_register: %d\n" (List.length 
!file_md4s_to_register);
-
   Printf.bprintf buf "  servers_by_key: %d\n" (Hashtbl.length servers_by_key);
   Printf.bprintf buf "  banned_ips: %d\n" (Hashtbl.length banned_ips);
   Printf.bprintf buf "  old_requests: %d\n" (Hashtbl.length old_requests);
Index: mldonkey/src/networks/donkey/donkeyShare.ml
diff -u mldonkey/src/networks/donkey/donkeyShare.ml:1.31 
mldonkey/src/networks/donkey/donkeyShare.ml:1.32
--- mldonkey/src/networks/donkey/donkeyShare.ml:1.31    Wed Dec 14 21:17:46 2005
+++ mldonkey/src/networks/donkey/donkeyShare.ml Sat Dec 17 20:10:13 2005
@@ -97,7 +97,6 @@
         false in
     must_share_file file codedname old_impl;
     file.file_computed_md4s <- md4s;
-    file_md4s_to_register := file :: !file_md4s_to_register;
     let sh_name = Filename.basename sh.sh_name in
     if not (List.mem_assoc sh_name file.file_filenames) then begin
         file.file_filenames <- file.file_filenames @ [sh_name, 
GuiTypes.noips()];