[Mldonkey-commits] mldonkey distrib/ChangeLog src/utils/lib/unix32.ml

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Branch:         
Changes by:     spiralvoice <address@hidden>    05/12/17 20:11:39

Modified files:
        distrib        : ChangeLog 
        src/utils/lib  : unix32.ml 

Log message:
        patch #4718

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/mldonkey/distrib/ChangeLog.diff?tr1=1.624&tr2=1.625&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/mldonkey/mldonkey/src/utils/lib/unix32.ml.diff?tr1=1.51&tr2=1.52&r1=text&r2=text

Patches:
Index: mldonkey/distrib/ChangeLog
diff -u mldonkey/distrib/ChangeLog:1.624 mldonkey/distrib/ChangeLog:1.625
--- mldonkey/distrib/ChangeLog:1.624    Sat Dec 17 20:10:13 2005
+++ mldonkey/distrib/ChangeLog  Sat Dec 17 20:11:39 2005
@@ -12,6 +12,7 @@
 http://mldonkey.berlios.de/modules.php?name=Wiki&pagename=Windows
 
 2005/12/17
+4718: Fix bug which prevented proper write to files introduced in patch #4694
 4717: EDK: Removed unused variable file_md4s_to_register (bogeyman)
 
 2005/12/16
Index: mldonkey/src/utils/lib/unix32.ml
diff -u mldonkey/src/utils/lib/unix32.ml:1.51 
mldonkey/src/utils/lib/unix32.ml:1.52
--- mldonkey/src/utils/lib/unix32.ml:1.51       Wed Dec 14 21:17:47 2005
+++ mldonkey/src/utils/lib/unix32.ml    Sat Dec 17 20:11:39 2005
@@ -183,11 +183,13 @@
         although we are reading here, but I had problems with
         it like exceptions in really_write
       *)
+      let _ = Unix2.c_seek64 fd file_pos Unix.SEEK_SET in
       if verbose then lprintf "really_read %d\n" len;
       Unix2.really_read fd string string_pos len
 
     let write file file_pos string string_pos len =
       let fd = local_force_fd file true in
+      let _ = Unix2.c_seek64 fd file_pos Unix.SEEK_SET in
       if verbose then lprintf "really_write %d\n" len;
       begin
         try