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

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Changes by:     spiralvoice <spiralvoice>       07/07/03 14:23:23

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

Log message:
        patch #6068

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/utils/lib/unix32.ml?cvsroot=mldonkey&r1=1.71&r2=1.72

Patches:
Index: unix32.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/utils/lib/unix32.ml,v
retrieving revision 1.71
retrieving revision 1.72
diff -u -b -r1.71 -r1.72
--- unix32.ml   3 Jul 2007 14:13:44 -0000       1.71
+++ unix32.ml   3 Jul 2007 14:23:23 -0000       1.72
@@ -1675,7 +1675,7 @@
   f_files : int64;  (* total file nodes in file system *)
   f_ffree : int64;  (* free file nodes in fs *)
   f_fsid : unit;  (* See note in statfs(2) *)
-  f_fnamelen : int; (* maximum length of filenames, maximum 
Sys.max_string_length *)
+  f_fnamelen : int64; (* maximum length of filenames, maximum 
Sys.max_string_length *)
   f_basetype : string; (* type of filesystem - Solaris, (-1) on other systems, 
use f_type there *)
   f_frsize : int64;  (* Fundamental file system block size, (-1) if not 
provided by system *)
 }
@@ -1719,7 +1719,7 @@
 
 let fnamelen dir =
   try
-    Some (min (statfs dir).f_fnamelen Sys.max_string_length)
+    Some (min (Int64.to_int (statfs dir).f_fnamelen) Sys.max_string_length)
   with e -> None
 
 let disktotal dir =