Merge pull request #4587 from mseminatore/win_queue_fix

martin-frbg · web-flow · commit b1e8ba501734 · 2024-03-29T14:36:21.000+01:00
Address Windows thread server re-entrant queue bug #4582
diff --git a/driver/others/blas_server_win32.c b/driver/others/blas_server_win32.c
@@ -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);

Original file line number	Diff line number	Diff line change
`@@ -409,14 +409,14 @@ int exec_blas_async(BLASLONG pos, blas_queue_t *queue) {`
`409`	`409`	`}`
`410`	`410`	`else`
`411`	`411`	`{`
`412`		`- blas_queue_t *next_item = work_queue;`
	`412`	`+ blas_queue_t *queue_item = work_queue;`
`413`	`413`
`414`	`414`	`// find the end of the work queue`
`415`		`- while (next_item)`
`416`		`- next_item = next_item->next;`
	`415`	`+ while (queue_item->next)`
	`416`	`+ queue_item = queue_item->next;`
`417`	`417`
`418`	`418`	`// add new work to the end`
`419`		`- next_item = queue;`
	`419`	`+ queue_item->next = queue;`
`420`	`420`	`}`
`421`	`421`
`422`	`422`	`LeaveCriticalSection(&queue_lock);`