[Mldonkey-commits] Changes to mldonkey/src/daemon/common/commonShared.ml

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonShared.ml
diff -u mldonkey/src/daemon/common/commonShared.ml:1.25 
mldonkey/src/daemon/common/commonShared.ml:1.26
--- mldonkey/src/daemon/common/commonShared.ml:1.25     Mon Oct 10 16:22:24 2005
+++ mldonkey/src/daemon/common/commonShared.ml  Sun Oct 16 20:42:50 2005
@@ -86,7 +86,7 @@
 let shared_calculate_total_bytes () =
   nshared_bytes := Int64.zero;
   H.iter (fun s ->
-    nshared_bytes := (Int64.add !nshared_bytes (as_shared_impl 
s).impl_shared_size)
+    nshared_bytes := !nshared_bytes ++ (as_shared_impl s).impl_shared_size
   ) shareds_by_num
     
 let shared_must_update shared =