/[mldonkey]/mldonkey/src/networks/donkey/donkeyOneFile.ml
ViewVC logotype

Diff of /mldonkey/src/networks/donkey/donkeyOneFile.ml

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

revision 1.28 by spiralvoice, Thu Oct 6 10:19:30 2005 UTC revision 1.29 by spiralvoice, Sun Oct 16 20:42:54 2005 UTC
# Line 79  let sort_file_queue c = Line 79  let sort_file_queue c =
79                let v = file_priority f2 - file_priority f1 in                let v = file_priority f2 - file_priority f1 in
80                if v <> 0 then v else                if v <> 0 then v else
81                let s1 = if (file_size f1) > Int64.zero then                let s1 = if (file_size f1) > Int64.zero then
82                    Int64.to_int (Int64.div (Int64.mul (file_downloaded f1) (Int64.of_int 100)) (file_size f1))                    Int64.to_int ((file_downloaded f1) ** 100L // (file_size f1))
83                  else 0 in                  else 0 in
84                let s2 = if (file_size f2) > Int64.zero then                let s2 = if (file_size f2) > Int64.zero then
85                    Int64.to_int (Int64.div (Int64.mul (file_downloaded f2) (Int64.of_int 100)) (file_size f2))                    Int64.to_int ((file_downloaded f2) ** 100L // (file_size f2))
86                  else 0 in                  else 0 in
87                s2 - s1                s2 - s1
88            ) c.client_file_queue;            ) c.client_file_queue;

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

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