From 31943bac1db3351118c7f911db99bd567f02a883 Mon Sep 17 00:00:00 2001 From: Damien Doligez Date: Mon, 29 Dec 2003 22:15:02 +0000 Subject: depollution suite (PR#1914 et PR#1956); byterun/weak.c: PR#1929 suite git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6041 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- otherlibs/win32unix/unix.ml | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'otherlibs/win32unix/unix.ml') diff --git a/otherlibs/win32unix/unix.ml b/otherlibs/win32unix/unix.ml index f7a7e9ee7..bf6ef0248 100644 --- a/otherlibs/win32unix/unix.ml +++ b/otherlibs/win32unix/unix.ml @@ -192,10 +192,11 @@ let write fd buf ofs len = (* Interfacing with the standard input/output library *) -external open_read_descriptor : int -> in_channel = "caml_open_descriptor_in" -external open_write_descriptor : int -> out_channel = "caml_open_descriptor_out" -external fd_of_in_channel : in_channel -> int = "channel_descriptor" -external fd_of_out_channel : out_channel -> int = "channel_descriptor" +external open_read_descriptor : int -> in_channel = "caml_ml_open_descriptor_in" +external open_write_descriptor : int -> out_channel + = "caml_ml_open_descriptor_out" +external fd_of_in_channel : in_channel -> int = "caml_channel_descriptor" +external fd_of_out_channel : out_channel -> int = "caml_channel_descriptor" external open_handle : file_descr -> int = "win_fd_handle" -- cgit v1.2.3-70-g09d2