diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2000-02-13 17:27:04 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2000-02-13 17:27:04 +0000 |
| commit | 95476c7aeaea1ea153f1c4ea49bce2b52fb95c6c (patch) | |
| tree | d71ddd0bba2fe7f5fa50496a42094233e4a9dff6 | |
| parent | 1e95ce46ff554c56d230b5f4679f9593206e4234 (diff) | |
Typo dans fonctions de comparaison
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2812 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | otherlibs/systhreads/win32.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/otherlibs/systhreads/win32.c b/otherlibs/systhreads/win32.c index 463bd3b98..1805f5c72 100644 --- a/otherlibs/systhreads/win32.c +++ b/otherlibs/systhreads/win32.c @@ -445,13 +445,13 @@ static int caml_mutex_compare(value wrapper1, value wrapper2) { HANDLE h1 = Mutex_val(wrapper1); HANDLE h2 = Mutex_val(wrapper2); - return mut1 == mut2 ? 0 : mut1 < mut2 ? -1 : 1; + return h1 == h2 ? 0 : h1 < h2 ? -1 : 1; } static struct custom_operations caml_mutex_ops = { "_mutex", caml_mutex_finalize, - caml_mutex_condition_compare, + caml_mutex_compare, custom_hash_default, custom_serialize_default, custom_deserialize_default @@ -528,7 +528,7 @@ static int caml_condition_compare(value wrapper1, value wrapper2) { HANDLE h1 = Condition_val(wrapper1)->sem; HANDLE h2 = Condition_val(wrapper2)->sem; - return mut1 == mut2 ? 0 : mut1 < mut2 ? -1 : 1; + return h1 == h2 ? 0 : h1 < h2 ? -1 : 1; } static struct custom_operations caml_condition_ops = { |