From 1e664b94467a65841e63d2dea50cd1f64e8a3258 Mon Sep 17 00:00:00 2001
From: Xavier Leroy <xavier.leroy@inria.fr>
Date: Wed, 3 Sep 1997 14:38:02 +0000
Subject: Implementation du type file_descr par le type HANDLE de Win32. 
 Court-circuite la libc de MSVC.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1700 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 otherlibs/win32unix/unixsupport.h | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'otherlibs/win32unix/unixsupport.h')

diff --git a/otherlibs/win32unix/unixsupport.h b/otherlibs/win32unix/unixsupport.h
index e8faca3f6..f2b2b2941 100644
--- a/otherlibs/win32unix/unixsupport.h
+++ b/otherlibs/win32unix/unixsupport.h
@@ -11,6 +11,7 @@
 
 /* $Id$ */
 
+#include <winbase.h>
 #include <stdlib.h>
 /* Include io.h in current dir, which is a copy of the system's io.h,
    not io.h from ../../byterun */
@@ -18,6 +19,10 @@
 #include <direct.h>
 #include <process.h>
 
+#define Handle_val(v) (*((HANDLE *)(v)))
+
+extern value win_alloc_handle(HANDLE);
+
 #define Nothing ((value) 0)
 
 extern void unix_error (int errcode, char * cmdname, value arg);
-- 
cgit v1.2.3-70-g09d2