floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

restore lock in exec_blas_async to prevent race on queue

This commit is contained in:
Mark Seminatore 2023-06-27 16:26:41 -07:00
parent b4f233e881
commit 4083ef2f6b
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
driver/others/blas_server_win32.c
View File

@ -75,6 +75,7 @@ int blas_server_avail = 0;
/* Local Variables */ /* Local Variables */
static BLASULONG server_lock = 0; static BLASULONG server_lock = 0;
static BLASULONG pool_lock = 0;
static blas_pool_t pool; static blas_pool_t pool;
static HANDLE blas_threads [MAX_CPU_NUMBER]; static HANDLE blas_threads [MAX_CPU_NUMBER];
static DWORD blas_threads_id[MAX_CPU_NUMBER]; static DWORD blas_threads_id[MAX_CPU_NUMBER];
@ -420,7 +421,17 @@ int exec_blas_async(BLASLONG pos, blas_queue_t *queue){
pos ++; pos ++;
} }
pool.queue = queue; LOCK_COMMAND(&pool_lock);
if (pool.queue) {
current = pool.queue;
while (current -> next) current = current -> next;
current -> next = queue;
} else {
pool.queue = queue;
}
UNLOCK_COMMAND(&pool_lock);
// start up worker threads // start up worker threads
ReleaseSemaphore(pool.taskSemaphore, pos - 1, NULL); ReleaseSemaphore(pool.taskSemaphore, pos - 1, NULL);