diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2005-09-22 14:21:50 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2005-09-22 14:21:50 +0000 |
| commit | 3de54dec267abf845ca32bd1f6026834cc04d853 (patch) | |
| tree | daa34de1fd38e86c2dd0c67896c3c5748511fe1c /otherlibs/win32unix/unixsupport.c | |
| parent | 11524e2578b62fa30620121873aa372b180c0a74 (diff) | |
Remplacement long/unsigned long par intnat/uintnat
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7064 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/win32unix/unixsupport.c')
| -rw-r--r-- | otherlibs/win32unix/unixsupport.c | 8 |
1 files changed, 4 insertions, 4 deletions
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; |