/[mldonkey]/mldonkey/src/networks/gnutella/gnutellaClients.ml
ViewVC logotype

Diff of /mldonkey/src/networks/gnutella/gnutellaClients.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.30 by spiralvoice, Thu Aug 4 21:45:24 2005 UTC revision 1.31 by spiralvoice, Thu Oct 6 10:19:30 2005 UTC
# Line 90  let clean_sources () = Line 90  let clean_sources () =
90  let download_finished file =  let download_finished file =
91    if List.memq file !current_files then begin    if List.memq file !current_files then begin
92        file_completed (as_file file);        file_completed (as_file file);
93          Int64Swarmer.remove_swarmer file.file_swarmer;
94        file.file_swarmer <- None;        file.file_swarmer <- None;
         
95  (* TODO: maybe this remove file may have a bad effect on sharing *)  (* TODO: maybe this remove file may have a bad effect on sharing *)
96        GnutellaGlobals.remove_file file;        GnutellaGlobals.remove_file file;
97        old_files =:= (file.file_name, file_size file) :: !!old_files;        old_files =:= (file.file_name, file_size file) :: !!old_files;

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26