diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1996-09-05 13:32:25 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1996-09-05 13:32:25 +0000 |
| commit | 6ded697b42a2f40a96c774975e36e99897195aec (patch) | |
| tree | 101febfe5774275c5392863fd93a004465e58bc0 /otherlibs/win32unix/windir.c | |
| parent | b973b44d9fa9e63d5504cc59e5078411b30efe03 (diff) | |
Premiere compilation.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@956 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/win32unix/windir.c')
| -rw-r--r-- | otherlibs/win32unix/windir.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/otherlibs/win32unix/windir.c b/otherlibs/win32unix/windir.c index 532cd6643..08f70ed66 100644 --- a/otherlibs/win32unix/windir.c +++ b/otherlibs/win32unix/windir.c @@ -13,18 +13,20 @@ #include <mlvalues.h> #include <memory.h> -#include <windows.h> +#include <errno.h> #include <alloc.h> #include "unixsupport.h" value win_findfirst(name) /* ML */ value name; { - HANDLE h; + int h; value v; struct _finddata_t fileinfo; Push_roots(r,1); + #define valname r[0] + h = _findfirst(String_val(name),&fileinfo); if (h == -1) { if (errno == ENOENT) |