/[mldonkey]/mldonkey/src/utils/lib/unix32.ml
ViewVC logotype

Diff of /mldonkey/src/utils/lib/unix32.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.44 by spiralvoice, Mon Sep 19 10:09:05 2005 UTC revision 1.45 by spiralvoice, Thu Oct 6 17:31:21 2005 UTC
# Line 357  module MultiFile = struct Line 357  module MultiFile = struct
357              let temp_filename = Filename.concat dirname filename in              let temp_filename = Filename.concat dirname filename in
358              Unix2.safe_mkdir (Filename.dirname temp_filename);              Unix2.safe_mkdir (Filename.dirname temp_filename);
359              let fd = FDCache.create temp_filename in              let fd = FDCache.create temp_filename in
360              let _ = FDCache.local_force_fd fd true in              let cur_len = ref Int64.zero in
361                if not (Unix2.is_directory temp_filename) then
362                begin
363                  ignore(FDCache.local_force_fd fd true);
364                  cur_len := FDCache.getsize64 fd true;
365                end;
366              iter tail (pos ++ size)              iter tail (pos ++ size)
367              ({              ({
368                  filename = filename;                  filename = filename;
369                  pos = pos;                  pos = pos;
370                  len = size;                  len = size;
371                  current_len = FDCache.getsize64 fd true;                  current_len = !cur_len;
372                  fd = fd;                  fd = fd;
373                  tail = [];                  tail = [];
374                } :: files2)                } :: files2)

Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26