/[mldonkey]/mldonkey/src/config/unix/mlUnix.ml
ViewVC logotype

Diff of /mldonkey/src/config/unix/mlUnix.ml

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

revision 1.8 by spiralvoice, Tue Jul 26 21:35:10 2005 UTC revision 1.9 by spiralvoice, Mon Aug 1 20:09:13 2005 UTC
# Line 112  let _ = Callback.register_exception "err Line 112  let _ = Callback.register_exception "err
112    
113  external statfs : string -> statfs = "statfs_statfs"  external statfs : string -> statfs = "statfs_statfs"
114  external fstatfs : Unix.file_descr -> statfs = "statfs_fstatfs"  external fstatfs : Unix.file_descr -> statfs = "statfs_fstatfs"
115    external glibc_version : unit -> string = "glibc_version"
116    
117    let glibc_version_num () =
118      begin
119        try
120          let s = Printf.sprintf "%s" (glibc_version ()) in s
121        with e -> ""
122      end
123    
124  let ( ** ) x y = Int64.mul x y  let ( ** ) x y = Int64.mul x y
125  let ( ++ ) x y = Int64.add x y  let ( ++ ) x y = Int64.add x y

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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