[Mldonkey-commits] Changes to mldonkey/src/utils/lib/unix32.ml

[mldonkey-commits]

Index: mldonkey/src/utils/lib/unix32.ml
diff -u mldonkey/src/utils/lib/unix32.ml:1.33 
mldonkey/src/utils/lib/unix32.ml:1.34
--- mldonkey/src/utils/lib/unix32.ml:1.33       Sun Aug  7 17:39:32 2005
+++ mldonkey/src/utils/lib/unix32.ml    Tue Aug  9 10:48:38 2005
@@ -1022,7 +1022,7 @@
 let flush_buffer t offset =
   if verbose then lprintf "flush_buffer\n";
   let s = Buffer.contents buffer in
-  Buffer.clear buffer;
+  Buffer.reset buffer;
   let len = String.length s in
   try
     if verbose then lprintf "seek64 %Ld\n" offset;
@@ -1054,7 +1054,7 @@
     match t.buffers with
       [] -> ()
     | (s, pos_s, len_s, offset, len) :: tail ->
-        Buffer.clear buffer;
+        Buffer.reset buffer;
         Buffer.add_substring buffer s pos_s len_s;
         t.buffers <- tail;
         iter_in offset len