[Mldonkey-commits] Changes to mldonkey/src/daemon/driver/driverCommands.ml

[mldonkey-commits]

Index: mldonkey/src/daemon/driver/driverCommands.ml
diff -u mldonkey/src/daemon/driver/driverCommands.ml:1.94 
mldonkey/src/daemon/driver/driverCommands.ml:1.95
--- mldonkey/src/daemon/driver/driverCommands.ml:1.94   Thu Oct  6 12:54:35 2005
+++ mldonkey/src/daemon/driver/driverCommands.ml        Sun Oct 16 20:42:50 2005
@@ -1943,9 +1943,9 @@
                shared_dir.shdir_priority
                dir
                shared_dir.shdir_strategy
-               (if (Unix32.diskused dir) = Int64.of_int (-1) then "---"
+               (if (Unix32.diskused dir) = -1L then "---"
                   else (size_of_int64 (Unix32.diskused dir)))
-               (if (Unix32.diskfree dir) = Int64.of_int (-1) then "---"
+               (if (Unix32.diskfree dir) = -1L then "---"
                   else (size_of_int64 (Unix32.diskfree dir)))
                (if (Unix32.percentfree dir) = (-1) then "---"
                   else string_of_int(Unix32.percentfree dir))
@@ -1969,9 +1969,9 @@
                0
                dir
                "temp_directory"
-             (if (Unix32.diskused dir) = Int64.of_int (-1) then "---"
+             (if (Unix32.diskused dir) = -1L then "---"
                else (size_of_int64 (Unix32.diskused dir)))
-             (if (Unix32.diskfree dir) = Int64.of_int (-1) then "---"
+             (if (Unix32.diskfree dir) = -1L then "---"
                else (size_of_int64 (Unix32.diskfree dir)))
              (if (Unix32.percentfree dir) = (-1) then "---"
                else string_of_int(Unix32.percentfree dir))
@@ -1993,9 +1993,9 @@
                0
                dir
                "core_directory"
-             (if (Unix32.diskused dir) = Int64.of_int (-1) then "---"
+             (if (Unix32.diskused dir) = -1L then "---"
                else (size_of_int64 (Unix32.diskused dir)))
-             (if (Unix32.diskfree dir) = Int64.of_int (-1) then "---"
+             (if (Unix32.diskfree dir) = -1L then "---"
                else (size_of_int64 (Unix32.diskfree dir)))
              (if (Unix32.percentfree dir) = (-1) then "---"
                else string_of_int(Unix32.percentfree dir))
@@ -2563,8 +2563,8 @@
               let list = List.filter ( fun f -> f.file_state = FileDownloading 
) list in
               let list = Sort.list
                 ( fun f1 f2 ->
-                  Int64.sub f2.file_size f2.file_downloaded <=
-                  Int64.sub f1.file_size f1.file_downloaded
+                  f2.file_size -- f2.file_downloaded <=
+                  f1.file_size -- f1.file_downloaded
                 ) list in
               simple_print_file_list false buf list o;
               if !!done_files <> [] then