[Mldonkey-commits] Changes to mldonkey/src/config/mingw/mlUnix.ml

[mldonkey-commits]

Index: mldonkey/src/config/mingw/mlUnix.ml
diff -u mldonkey/src/config/mingw/mlUnix.ml:1.4 
mldonkey/src/config/mingw/mlUnix.ml:1.5
--- mldonkey/src/config/mingw/mlUnix.ml:1.4     Sat May 28 09:43:23 2005
+++ mldonkey/src/config/mingw/mlUnix.ml Tue Jul 26 21:35:10 2005
@@ -79,4 +79,16 @@
 
 let mini (x: int) y = if x < y then x else y
 
-let write fd s pos len = Unix.write fd s pos (mini len 16000)
\ No newline at end of file
+let write fd s pos len = Unix.write fd s pos (mini len 16000)
+
+let bsize dir = Int64.of_int (-1)
+let blocks dir = Int64.of_int (-1)
+let bfree dir = Int64.of_int (-1)
+let bavail dir = Int64.of_int (-1)
+let fnamelen dir = Int64.of_int 255
+let disktotal dir = Int64.of_int (-1)
+let diskfree dir = Int64.of_int (-1)
+let diskused dir = Int64.of_int (-1)
+let percentused dir = (-1)
+let percentfree dir = (-1)
+let filesystem dir = "not supported"