Skip to content

Commit dc6c9bb

Browse files
committed
Set mutex to be recursive by default
1 parent d4909a8 commit dc6c9bb

File tree

1 file changed

+13
-0
lines changed

1 file changed

+13
-0
lines changed
Lines changed: 13 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,13 @@
1+
diff --git a/runtime/platform.c b/runtime/platform.c
2+
index eaa6e18112..c30fc86e61 100644
3+
--- a/runtime/platform.c
4+
+++ b/runtime/platform.c
5+
@@ -56,6 +56,8 @@ CAMLexport void caml_plat_mutex_init(caml_plat_mutex * m)
6+
if (rc != 0) goto error1;
7+
rc = pthread_mutexattr_settype(&attr, PTHREAD_MUTEX_ERRORCHECK);
8+
if (rc != 0) goto error2;
9+
+ rc = pthread_mutexattr_settype(&attr, PTHREAD_MUTEX_RECURSIVE);
10+
+ if (rc != 0) goto error2;
11+
rc = pthread_mutex_init(m, &attr);
12+
// fall through
13+
error2:

0 commit comments

Comments
 (0)