12 lines
548 B
OCaml
12 lines
548 B
OCaml
--- ./src/networks/gnutella/gnutellaGlobals.ml.orig Sat Apr 8 21:26:41 2006
|
|
+++ ./src/networks/gnutella/gnutellaGlobals.ml Sun May 7 06:39:10 2006
|
|
@@ -325,8 +325,7 @@
|
|
in
|
|
if !verbose then
|
|
lprintf "SET SIZE : %Ld\n" file_size;
|
|
- let kernel = CommonSwarming.create_swarmer file_temp file_size
|
|
- (Int64.of_int (256 * 1024)) in
|
|
+ let kernel = CommonSwarming.create_swarmer file_temp file_size in
|
|
let swarmer = CommonSwarming.create kernel (as_file file) megabyte in
|
|
CommonSwarming.set_verifier swarmer ForceVerification;
|
|
|