diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1997-08-29 15:37:22 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1997-08-29 15:37:22 +0000 |
| commit | bec90463c896d78e84bb1c2802c671f1d4e6854f (patch) | |
| tree | a65319f63114593490c1685867026eee511ebd15 /otherlibs/win32unix/unix.ml | |
| parent | 891e4e9c276994f0badbc5c9df619afa9183ea32 (diff) | |
Revu completement l'allocation des buffers d'I/O.
Nettoyage du code d'I/O.
Ajout de hooks pour verrouiller en conjonction avec otherlibs/systhreads.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1693 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/win32unix/unix.ml')
| -rw-r--r-- | otherlibs/win32unix/unix.ml | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/otherlibs/win32unix/unix.ml b/otherlibs/win32unix/unix.ml index f07a67302..5fa71cec9 100644 --- a/otherlibs/win32unix/unix.ml +++ b/otherlibs/win32unix/unix.ml @@ -170,10 +170,13 @@ let write fd buf ofs len = then invalid_arg "Unix.write" else unsafe_write fd buf ofs len -external in_channel_of_descr : file_descr -> in_channel = "open_descriptor" -external out_channel_of_descr : file_descr -> out_channel = "open_descriptor" +external in_channel_of_descr : file_descr -> in_channel + = "caml_open_descriptor" +external out_channel_of_descr : file_descr -> out_channel + = "caml_open_descriptor" external descr_of_in_channel : in_channel -> file_descr = "channel_descriptor" -external descr_of_out_channel : out_channel -> file_descr = "channel_descriptor" +external descr_of_out_channel : out_channel -> file_descr + = "channel_descriptor" type seek_command = SEEK_SET |