Sebastian Lackner : vcomp: Implement OpenMP regular locking functions.
Alexandre Julliard
julliard at wine.codeweavers.com
Tue Aug 18 09:22:15 CDT 2015
Module: wine
Branch: master
Commit: 146df7dab17b7417ebe3ba6ae5677b45c19c5bfe
URL: http://source.winehq.org/git/wine.git/?a=commit;h=146df7dab17b7417ebe3ba6ae5677b45c19c5bfe
Author: Sebastian Lackner <sebastian at fds-team.de>
Date: Tue Aug 18 06:57:58 2015 +0200
vcomp: Implement OpenMP regular locking functions.
Native OpenMP also immediately terminates the process (without
exception) when calling omp_set_lock while holding the lock from the
same thread.
---
dlls/vcomp/main.c | 35 +++++++++++++++++++++++++++++++++++
dlls/vcomp/tests/vcomp.c | 41 +++++++++++++++++++++++++++++++++++++++++
dlls/vcomp/vcomp.spec | 6 +++---
dlls/vcomp100/vcomp100.spec | 6 +++---
dlls/vcomp110/vcomp110.spec | 6 +++---
dlls/vcomp90/vcomp90.spec | 6 +++---
6 files changed, 88 insertions(+), 12 deletions(-)
diff --git a/dlls/vcomp/main.c b/dlls/vcomp/main.c
index 487d55c..d442155 100644
--- a/dlls/vcomp/main.c
+++ b/dlls/vcomp/main.c
@@ -1045,6 +1045,12 @@ static void destroy_critsect(CRITICAL_SECTION *critsect)
HeapFree(GetProcessHeap(), 0, critsect);
}
+static BOOL critsect_is_locked(CRITICAL_SECTION *critsect)
+{
+ return critsect->OwningThread == ULongToHandle(GetCurrentThreadId()) &&
+ critsect->RecursionCount;
+}
+
void CDECL omp_init_lock(omp_lock_t *lock)
{
TRACE("(%p)\n", lock);
@@ -1057,6 +1063,35 @@ void CDECL omp_destroy_lock(omp_lock_t *lock)
destroy_critsect(*lock);
}
+void CDECL omp_set_lock(omp_lock_t *lock)
+{
+ TRACE("(%p)\n", lock);
+
+ if (critsect_is_locked(*lock))
+ {
+ ERR("omp_set_lock called while holding lock %p\n", *lock);
+ ExitProcess(1);
+ }
+
+ EnterCriticalSection(*lock);
+}
+
+void CDECL omp_unset_lock(omp_lock_t *lock)
+{
+ TRACE("(%p)\n", lock);
+ LeaveCriticalSection(*lock);
+}
+
+int CDECL omp_test_lock(omp_lock_t *lock)
+{
+ TRACE("(%p)\n", lock);
+
+ if (critsect_is_locked(*lock))
+ return 0;
+
+ return TryEnterCriticalSection(*lock);
+}
+
void CDECL omp_set_nest_lock(omp_nest_lock_t *lock)
{
TRACE("(%p)\n", lock);
diff --git a/dlls/vcomp/tests/vcomp.c b/dlls/vcomp/tests/vcomp.c
index b064554..83125e1 100644
--- a/dlls/vcomp/tests/vcomp.c
+++ b/dlls/vcomp/tests/vcomp.c
@@ -82,10 +82,13 @@ static int (CDECL *pomp_get_thread_num)(void);
static int (CDECL *pomp_in_parallel)(void);
static void (CDECL *pomp_init_lock)(omp_lock_t *lock);
static void (CDECL *pomp_init_nest_lock)(omp_nest_lock_t *lock);
+static void (CDECL *pomp_set_lock)(omp_lock_t *lock);
static void (CDECL *pomp_set_nest_lock)(omp_nest_lock_t *lock);
static void (CDECL *pomp_set_nested)(int nested);
static void (CDECL *pomp_set_num_threads)(int num_threads);
+static int (CDECL *pomp_test_lock)(omp_lock_t *lock);
static int (CDECL *pomp_test_nest_lock)(omp_nest_lock_t *lock);
+static void (CDECL *pomp_unset_lock)(omp_lock_t *lock);
static void (CDECL *pomp_unset_nest_lock)(omp_nest_lock_t *lock);
#define VCOMP_DYNAMIC_FLAGS_STATIC 0x01
@@ -268,10 +271,13 @@ static BOOL init_vcomp(void)
VCOMP_GET_PROC(omp_in_parallel);
VCOMP_GET_PROC(omp_init_lock);
VCOMP_GET_PROC(omp_init_nest_lock);
+ VCOMP_GET_PROC(omp_set_lock);
VCOMP_GET_PROC(omp_set_nest_lock);
VCOMP_GET_PROC(omp_set_nested);
VCOMP_GET_PROC(omp_set_num_threads);
+ VCOMP_GET_PROC(omp_test_lock);
VCOMP_GET_PROC(omp_test_nest_lock);
+ VCOMP_GET_PROC(omp_unset_lock);
VCOMP_GET_PROC(omp_unset_nest_lock);
return TRUE;
@@ -1302,6 +1308,40 @@ static void test_vcomp_flush(void)
p_vcomp_flush();
}
+static void test_omp_init_lock(void)
+{
+ omp_lock_t lock;
+ int ret;
+
+ pomp_init_lock(&lock);
+
+ /* test omp_set_lock */
+ pomp_set_lock(&lock);
+ pomp_unset_lock(&lock);
+
+ /* test omp_test_lock */
+ ret = pomp_test_lock(&lock);
+ ok(ret == 1, "expected ret == 1, got %d\n", ret);
+ ret = pomp_test_lock(&lock);
+ ok(ret == 0, "expected ret == 0, got %d\n", ret);
+ pomp_unset_lock(&lock);
+
+ /* test with EnterCriticalSection */
+ EnterCriticalSection(lock);
+ ret = pomp_test_lock(&lock);
+ todo_wine
+ ok(ret == 1, "expected ret == 1, got %d\n", ret);
+ if (ret)
+ {
+ ret = pomp_test_lock(&lock);
+ ok(ret == 0, "expected ret == 0, got %d\n", ret);
+ pomp_unset_lock(&lock);
+ }
+ LeaveCriticalSection(lock);
+
+ pomp_destroy_lock(&lock);
+}
+
static void test_omp_init_nest_lock(void)
{
omp_nest_lock_t lock;
@@ -1462,6 +1502,7 @@ START_TEST(vcomp)
test_vcomp_single_begin();
test_vcomp_enter_critsect();
test_vcomp_flush();
+ test_omp_init_lock();
test_omp_init_nest_lock();
test_atomic_integer32();
test_atomic_float();
diff --git a/dlls/vcomp/vcomp.spec b/dlls/vcomp/vcomp.spec
index 4c89879..52b929f 100644
--- a/dlls/vcomp/vcomp.spec
+++ b/dlls/vcomp/vcomp.spec
@@ -102,11 +102,11 @@
@ cdecl omp_init_lock(ptr)
@ cdecl omp_init_nest_lock(ptr) omp_init_lock
@ cdecl omp_set_dynamic(long)
-@ stub omp_set_lock
+@ cdecl omp_set_lock(ptr)
@ cdecl omp_set_nest_lock(ptr)
@ cdecl omp_set_nested(long)
@ cdecl omp_set_num_threads(long)
-@ stub omp_test_lock
+@ cdecl omp_test_lock(ptr)
@ cdecl omp_test_nest_lock(ptr)
-@ stub omp_unset_lock
+@ cdecl omp_unset_lock(ptr)
@ cdecl omp_unset_nest_lock(ptr)
diff --git a/dlls/vcomp100/vcomp100.spec b/dlls/vcomp100/vcomp100.spec
index 9021b10..4b646eb 100644
--- a/dlls/vcomp100/vcomp100.spec
+++ b/dlls/vcomp100/vcomp100.spec
@@ -102,11 +102,11 @@
@ cdecl omp_init_lock(ptr) vcomp.omp_init_lock
@ cdecl omp_init_nest_lock(ptr) vcomp.omp_init_nest_lock
@ cdecl omp_set_dynamic(long) vcomp.omp_set_dynamic
-@ stub omp_set_lock
+@ cdecl omp_set_lock(ptr) vcomp.omp_set_lock
@ cdecl omp_set_nest_lock(ptr) vcomp.omp_set_nest_lock
@ cdecl omp_set_nested(long) vcomp.omp_set_nested
@ cdecl omp_set_num_threads(long) vcomp.omp_set_num_threads
-@ stub omp_test_lock
+@ cdecl omp_test_lock(ptr) vcomp.omp_test_lock
@ cdecl omp_test_nest_lock(ptr) vcomp.omp_test_nest_lock
-@ stub omp_unset_lock
+@ cdecl omp_unset_lock(ptr) vcomp.omp_unset_lock
@ cdecl omp_unset_nest_lock(ptr) vcomp.omp_unset_nest_lock
diff --git a/dlls/vcomp110/vcomp110.spec b/dlls/vcomp110/vcomp110.spec
index 4f7503f..1ee7fba 100644
--- a/dlls/vcomp110/vcomp110.spec
+++ b/dlls/vcomp110/vcomp110.spec
@@ -103,11 +103,11 @@
@ cdecl omp_init_lock(ptr) vcomp.omp_init_lock
@ cdecl omp_init_nest_lock(ptr) vcomp.omp_init_nest_lock
@ cdecl omp_set_dynamic(long) vcomp.omp_set_dynamic
-@ stub omp_set_lock
+@ cdecl omp_set_lock(ptr) vcomp.omp_set_lock
@ cdecl omp_set_nest_lock(ptr) vcomp.omp_set_nest_lock
@ cdecl omp_set_nested(long) vcomp.omp_set_nested
@ cdecl omp_set_num_threads(long) vcomp.omp_set_num_threads
-@ stub omp_test_lock
+@ cdecl omp_test_lock(ptr) vcomp.omp_test_lock
@ cdecl omp_test_nest_lock(ptr) vcomp.omp_test_nest_lock
-@ stub omp_unset_lock
+@ cdecl omp_unset_lock(ptr) vcomp.omp_unset_lock
@ cdecl omp_unset_nest_lock(ptr) vcomp.omp_unset_nest_lock
diff --git a/dlls/vcomp90/vcomp90.spec b/dlls/vcomp90/vcomp90.spec
index 9021b10..4b646eb 100644
--- a/dlls/vcomp90/vcomp90.spec
+++ b/dlls/vcomp90/vcomp90.spec
@@ -102,11 +102,11 @@
@ cdecl omp_init_lock(ptr) vcomp.omp_init_lock
@ cdecl omp_init_nest_lock(ptr) vcomp.omp_init_nest_lock
@ cdecl omp_set_dynamic(long) vcomp.omp_set_dynamic
-@ stub omp_set_lock
+@ cdecl omp_set_lock(ptr) vcomp.omp_set_lock
@ cdecl omp_set_nest_lock(ptr) vcomp.omp_set_nest_lock
@ cdecl omp_set_nested(long) vcomp.omp_set_nested
@ cdecl omp_set_num_threads(long) vcomp.omp_set_num_threads
-@ stub omp_test_lock
+@ cdecl omp_test_lock(ptr) vcomp.omp_test_lock
@ cdecl omp_test_nest_lock(ptr) vcomp.omp_test_nest_lock
-@ stub omp_unset_lock
+@ cdecl omp_unset_lock(ptr) vcomp.omp_unset_lock
@ cdecl omp_unset_nest_lock(ptr) vcomp.omp_unset_nest_lock
More information about the wine-cvs
mailing list