Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Petits bugs dans LargeFile 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4475 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2002-03-05 12:27:38 +00:00
parent bddfe5d0ce
commit 9c7e9c398e
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
otherlibs/threads/unix.ml
View File

@ -259,7 +259,7 @@ external link : string -> string -> unit = "unix_link"
module LargeFile = module LargeFile =
struct struct
external lseek : file_descr -> int64 -> seek_command -> int = "unix_lseek_64" external lseek : file_descr -> int64 -> seek_command -> int64 = "unix_lseek_64"
external truncate : string -> int64 -> unit = "unix_truncate_64" external truncate : string -> int64 -> unit = "unix_truncate_64"
external ftruncate : file_descr -> int64 -> unit = "unix_ftruncate_64" external ftruncate : file_descr -> int64 -> unit = "unix_ftruncate_64"
type stats = type stats =

2
otherlibs/unix/unix.ml
View File

@ -216,7 +216,7 @@ external link : string -> string -> unit = "unix_link"
module LargeFile = module LargeFile =
struct struct
external lseek : file_descr -> int64 -> seek_command -> int = "unix_lseek_64" external lseek : file_descr -> int64 -> seek_command -> int64 = "unix_lseek_64"
external truncate : string -> int64 -> unit = "unix_truncate_64" external truncate : string -> int64 -> unit = "unix_truncate_64"
external ftruncate : file_descr -> int64 -> unit = "unix_ftruncate_64" external ftruncate : file_descr -> int64 -> unit = "unix_ftruncate_64"
type stats = type stats =

2
otherlibs/unix/unix.mli
View File

@ -343,7 +343,7 @@ val fstat : file_descr -> stats
module LargeFile : module LargeFile :
sig sig
val lseek : file_descr -> int64 -> seek_command -> int val lseek : file_descr -> int64 -> seek_command -> int64
val truncate : string -> int64 -> unit val truncate : string -> int64 -> unit
val ftruncate : file_descr -> int64 -> unit val ftruncate : file_descr -> int64 -> unit
type stats = type stats =

2
otherlibs/unix/unixLabels.mli
View File

@ -347,7 +347,7 @@ val fstat : file_descr -> stats
module LargeFile : module LargeFile :
sig sig
val lseek : file_descr -> int64 -> mode:seek_command -> int val lseek : file_descr -> int64 -> mode:seek_command -> int64
val truncate : string -> len:int64 -> unit val truncate : string -> len:int64 -> unit
val ftruncate : file_descr -> len:int64 -> unit val ftruncate : file_descr -> len:int64 -> unit
type stats = Unix.LargeFile.stats = type stats = Unix.LargeFile.stats =