diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2004-01-08 22:28:48 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2004-01-08 22:28:48 +0000 |
| commit | 794c184571bc658e770e645eebfcb8b5aa94425e (patch) | |
| tree | 0248d2ea7a3a98a37b9680aeeb2774723f990b26 /byterun/io.c | |
| parent | 5cfb0e6121fe12099e27158b74a0df32e728fcb1 (diff) | |
| download | ocaml-794c184571bc658e770e645eebfcb8b5aa94425e.tar.gz | |
suppression du support Mac OS 9
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6065 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/io.c')
| -rw-r--r-- | byterun/io.c | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/byterun/io.c b/byterun/io.c index 3075bb99fb..6e07ca32b4 100644 --- a/byterun/io.c +++ b/byterun/io.c @@ -19,9 +19,7 @@ #include <fcntl.h> #include <limits.h> #include <string.h> -#if !macintosh #include <sys/types.h> -#endif #include "config.h" #ifdef HAS_UNISTD #include <unistd.h> @@ -35,9 +33,6 @@ #include "mlvalues.h" #include "signals.h" #include "sys.h" -#ifdef HAS_UI -#include "ui.h" -#endif #ifndef SEEK_SET #define SEEK_SET 0 @@ -147,9 +142,6 @@ static int do_write(int fd, char *p, int n) int retcode; Assert(!Is_young((value) p)); -#ifdef HAS_UI - retcode = ui_write(fd, p, n); -#else again: caml_enter_blocking_section(); retcode = write(fd, p, n); @@ -165,7 +157,6 @@ again: n = 1; goto again; } } -#endif if (retcode == -1) caml_sys_error(NO_ARG); return retcode; } @@ -265,15 +256,11 @@ CAMLexport int caml_do_read(int fd, char *p, unsigned int n) /*Assert(!Is_young((value) p)); ** Is_young only applies to a true value */ caml_enter_blocking_section(); -#ifdef HAS_UI - retcode = ui_read(fd, p, n); -#else #ifdef EINTR do { retcode = read(fd, p, n); } while (retcode == -1 && errno == EINTR); #else retcode = read(fd, p, n); #endif -#endif caml_leave_blocking_section(); if (retcode == -1) caml_sys_error(NO_ARG); return retcode; |