projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.43.46: Simplify some type tests to EQL comparisons
[sbcl.git]
/
src
/
runtime
/
pthread-lutex.c
diff --git
a/src/runtime/pthread-lutex.c
b/src/runtime/pthread-lutex.c
index
2da0291
..
6365214
100644
(file)
--- a/
src/runtime/pthread-lutex.c
+++ b/
src/runtime/pthread-lutex.c
@@
-22,11
+22,11
@@
#include "arch.h"
#include "target-arch-os.h"
#include "os.h"
#include "arch.h"
#include "target-arch-os.h"
#include "os.h"
+#include "pthread-lutex.h"
+#include "gencgc.h"
#include "genesis/lutex.h"
#include "genesis/lutex.h"
-typedef unsigned long tagged_lutex_t;
-
#if 1
# define lutex_assert(ex) \
do { \
#if 1
# define lutex_assert(ex) \
do { \
@@
-138,7
+138,11
@@
lutex_lock (tagged_lutex_t tagged_lutex)
struct lutex *lutex = (struct lutex*) native_pointer(tagged_lutex);
ret = thread_mutex_lock(lutex->mutex);
struct lutex *lutex = (struct lutex*) native_pointer(tagged_lutex);
ret = thread_mutex_lock(lutex->mutex);
- /* The mutex is locked by the same thread. */
+ /* The mutex is locked by the same thread.
+ *
+ * FIXME: Usually when POSIX says that "an error value is returned"
+ * it actually refers to errno...
+ */
if (ret == EDEADLK)
return ret;
lutex_assert(ret == 0);
if (ret == EDEADLK)
return ret;
lutex_assert(ret == 0);