[Mldonkey-commits] Changes to mldonkey/src/networks/donkey/donkeyProtoCom.ml

[mldonkey-commits]

Index: mldonkey/src/networks/donkey/donkeyProtoCom.ml
diff -u mldonkey/src/networks/donkey/donkeyProtoCom.ml:1.21 
mldonkey/src/networks/donkey/donkeyProtoCom.ml:1.22
--- mldonkey/src/networks/donkey/donkeyProtoCom.ml:1.21 Fri Jul 22 14:32:12 2005
+++ mldonkey/src/networks/donkey/donkeyProtoCom.ml      Tue Sep  6 11:24:59 2005
@@ -47,7 +47,7 @@
 let buf = TcpBufferedSocket.internal_buf
 
 let client_msg_to_string emule_version msg =
-  Buffer.clear buf;
+  Buffer.reset buf;
   buf_int8 buf 0;
   buf_int buf 0;
   let magic = DonkeyProtoClient.write emule_version buf msg in
@@ -58,7 +58,7 @@
   s
 
 let server_msg_to_string msg =
-  Buffer.clear buf;
+  Buffer.reset buf;
   buf_int8 buf 227;
   buf_int buf 0;
   DonkeyProtoServer.write buf msg;
@@ -178,7 +178,7 @@
     end;
 
   try
-    Buffer.clear buf;
+    Buffer.reset buf;
     DonkeyProtoUdp.write buf msg;
     let s = Buffer.contents buf in
     UdpSocket.write t false s ip port
@@ -338,7 +338,7 @@
     !!client_buffer_size - 100
       - TcpBufferedSocket.remaining_to_write sock
   in
-  Buffer.clear buf;
+  Buffer.reset buf;
   let s =
       buf_int buf 0;
       let nfiles, prev_len =
@@ -351,7 +351,7 @@
       let s = String.sub s 0 prev_len in
       if !verbose_share then
          lprintf_nl () "Sending %d share(s) to server : " nfiles;
-      Buffer.clear buf;
+      Buffer.reset buf;
       let s_c =
         if compressed && Autoconf.has_zlib then
           Autoconf.zlib__compress_string s
@@ -388,7 +388,7 @@
 let client_send_files sock msg =
   let max_len = !!client_buffer_size - 100 -
     TcpBufferedSocket.remaining_to_write sock in
-  Buffer.clear buf;
+  Buffer.reset buf;
   buf_int8 buf 227;
   buf_int buf 0;
   buf_int8 buf 75; (* ViewFilesReply *)