[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Mldonkey-commits] mldonkey/src/utils/lib unix32.ml
From: |
mldonkey-commits |
Subject: |
[Mldonkey-commits] mldonkey/src/utils/lib unix32.ml |
Date: |
Tue, 03 Jul 2007 15:35:08 +0000 |
CVSROOT: /sources/mldonkey
Module name: mldonkey
Changes by: spiralvoice <spiralvoice> 07/07/03 15:35:08
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.72&r2=1.73
Patches:
Index: unix32.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/utils/lib/unix32.ml,v
retrieving revision 1.72
retrieving revision 1.73
diff -u -b -r1.72 -r1.73
--- unix32.ml 3 Jul 2007 14:23:23 -0000 1.72
+++ unix32.ml 3 Jul 2007 15:35:08 -0000 1.73
@@ -1719,7 +1719,7 @@
let fnamelen dir =
try
- Some (min (Int64.to_int (statfs dir).f_fnamelen) Sys.max_string_length)
+ Some (Int64.to_int (min (statfs dir).f_fnamelen (Int64.of_int
Sys.max_string_length)))
with e -> None
let disktotal dir =