From 5ba5d54bd13b2aaa6a25c2b417eec029ae97c60d Mon Sep 17 00:00:00 2001 From: Xavier Leroy Date: Mon, 6 Jan 2003 14:52:57 +0000 Subject: Lorsqu'un file_descr provient d'un fd du CRT, s'en souvenir et en tenir compte quand on fait Unix.dup2 (PR#1509). Remplacement de stdhandle par filedescr_of_fd. git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5370 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- otherlibs/win32unix/unixsupport.h | 3 +++ 1 file changed, 3 insertions(+) (limited to 'otherlibs/win32unix/unixsupport.h') diff --git a/otherlibs/win32unix/unixsupport.h b/otherlibs/win32unix/unixsupport.h index fc0ace1bd..2b1ff71ea 100644 --- a/otherlibs/win32unix/unixsupport.h +++ b/otherlibs/win32unix/unixsupport.h @@ -31,16 +31,19 @@ struct filedescr { SOCKET socket; } fd; enum { KIND_HANDLE, KIND_SOCKET } kind; + int crt_fd; }; #define Handle_val(v) (((struct filedescr *) Data_custom_val(v))->fd.handle) #define Socket_val(v) (((struct filedescr *) Data_custom_val(v))->fd.socket) #define Descr_kind_val(v) (((struct filedescr *) Data_custom_val(v))->kind) +#define CRT_fd_val(v) (((struct filedescr *) Data_custom_val(v))->crt_fd) extern value win_alloc_handle_or_socket(HANDLE); extern value win_alloc_handle(HANDLE); extern value win_alloc_socket(SOCKET); +#define NO_CRT_FD (-1) #define Nothing ((value) 0) extern void win32_maperr(unsigned long errcode); -- cgit v1.2.3-70-g09d2