code to fix lost work in case of re-entrant calls to exec_blas_async()

This commit is contained in:
Mark Seminatore 2024-03-28 15:24:52 -07:00
parent e1638ea43a
commit b0ad8a78ff
1 changed files with 4 additions and 4 deletions

View File

@ -409,14 +409,14 @@ int exec_blas_async(BLASLONG pos, blas_queue_t *queue) {
}
else
{
blas_queue_t *next_item = work_queue;
blas_queue_t *queue_item = work_queue;
// find the end of the work queue
while (next_item)
next_item = next_item->next;
while (queue_item->next)
queue_item = queue_item->next;
// add new work to the end
next_item = queue;
queue_item->next = queue;
}
LeaveCriticalSection(&queue_lock);