From 3de54dec267abf845ca32bd1f6026834cc04d853 Mon Sep 17 00:00:00 2001 From: Xavier Leroy Date: Thu, 22 Sep 2005 14:21:50 +0000 Subject: Remplacement long/unsigned long par intnat/uintnat git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7064 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- otherlibs/win32unix/unixsupport.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'otherlibs/win32unix/unixsupport.c') diff --git a/otherlibs/win32unix/unixsupport.c b/otherlibs/win32unix/unixsupport.c index c8f3dd23a..90cade2a0 100644 --- a/otherlibs/win32unix/unixsupport.c +++ b/otherlibs/win32unix/unixsupport.c @@ -33,9 +33,9 @@ static int win_handle_compare(value v1, value v2) return h1 == h2 ? 0 : h1 < h2 ? -1 : 1; } -static long win_handle_hash(value v) +static intnat win_handle_hash(value v) { - return (long) Handle_val(v); + return (intnat) Handle_val(v); } static struct custom_operations win_handle_ops = { @@ -77,7 +77,7 @@ value win_alloc_handle_or_socket(HANDLE h) /* Mapping of Windows error codes to POSIX error codes */ -struct error_entry { unsigned long win_code; int range; int posix_code; }; +struct error_entry { DWORD win_code; int range; int posix_code; }; static struct error_entry win_error_table[] = { { ERROR_INVALID_FUNCTION, 0, EINVAL}, @@ -148,7 +148,7 @@ static struct error_entry win_error_table[] = { { 0, -1, 0 } }; -void win32_maperr(unsigned long errcode) +void win32_maperr(DWORD errcode) { int i; -- cgit v1.2.3-70-g09d2