Refs #132. Kill the threads when unload the library.

OpenMathLib · Aug 11, 2012 · a55821a · a55821a
1 parent 068861a
commit a55821a
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 2 deletions.
diff --git a/driver/others/blas_server.c b/driver/others/blas_server.c
@@ -435,7 +435,7 @@ static int blas_thread_server(void *arg){
 
   blas_memory_free(buffer);
 
-  pthread_exit(NULL);
+  //pthread_exit(NULL);
 
   return 0;
 }

diff --git a/driver/others/blas_server_win32.c b/driver/others/blas_server_win32.c
@@ -433,7 +433,7 @@ int exec_blas(BLASLONG num, blas_queue_t *queue){
 /* Shutdown procedure, but user don't have to call this routine. The */
 /* kernel automatically kill threads.                                */
 
-int blas_thread_shutdown_(void){
+int BLASFUNC(blas_thread_shutdown)(void){
 
   int i;
 

diff --git a/driver/others/memory.c b/driver/others/memory.c
@@ -1289,6 +1289,7 @@ void DESTRUCTOR gotoblas_quit(void) {
    moncontrol (1);
 #endif
 
+   blas_shutdown();
 }
 
 #if (defined(C_PGI) || (!defined(C_SUN) && defined(F_INTERFACE_SUN))) && (defined(ARCH_X86) || defined(ARCH_X86_64))