[Mldonkey-commits] Changes to mldonkey/src/networks/soulseek/slskProtocol.ml

[mldonkey-commits]

Index: mldonkey/src/networks/soulseek/slskProtocol.ml
diff -u mldonkey/src/networks/soulseek/slskProtocol.ml:1.8 
mldonkey/src/networks/soulseek/slskProtocol.ml:1.9
--- mldonkey/src/networks/soulseek/slskProtocol.ml:1.8  Fri Aug 26 21:12:23 2005
+++ mldonkey/src/networks/soulseek/slskProtocol.ml      Tue Sep  6 11:25:00 2005
@@ -1058,7 +1058,7 @@
 let buf = Buffer.create 1000
       
 let server_msg_to_string t = 
-  Buffer.clear buf;
+  Buffer.reset buf;
   buf_int buf 0;
   C2S.write buf t;
   let s = Buffer.contents buf in
@@ -1067,7 +1067,7 @@
   s 
       
 let client_msg_to_string t = 
-  Buffer.clear buf;
+  Buffer.reset buf;
   buf_int buf 0;
   C2C.write buf t;
   let s = Buffer.contents buf in
@@ -1103,7 +1103,7 @@
 
   
 let init_peer_connection sock login token =
-  Buffer.clear buf;
+  Buffer.reset buf;
   buf_int buf 0;
   buf_int8 buf 1;
   buf_string buf login;
@@ -1121,7 +1121,7 @@
     end
 
 let init_result_connection sock token =
-  Buffer.clear buf;
+  Buffer.reset buf;
   buf_int buf 0;
   buf_int8 buf 0;
   buf_int buf token;
@@ -1137,7 +1137,7 @@
     end
     
 let init_download_connection sock file login req pos =
-  Buffer.clear buf;
+  Buffer.reset buf;
   buf_int buf 0;
   buf_int8 buf 1;
   buf_string buf login;
@@ -1154,7 +1154,7 @@
   
   if !verbose_msg_clients then dump s;  
   
-  Buffer.clear buf;
+  Buffer.reset buf;
   buf_int buf req;
   buf_int64_32 buf pos;
   buf_int buf 0;