Refs #132. Kill the threads when unload the library.
This commit is contained in:
parent
068861a927
commit
a55821a2ec
|
@ -435,7 +435,7 @@ static int blas_thread_server(void *arg){
|
||||||
|
|
||||||
blas_memory_free(buffer);
|
blas_memory_free(buffer);
|
||||||
|
|
||||||
pthread_exit(NULL);
|
//pthread_exit(NULL);
|
||||||
|
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
|
@ -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 */
|
/* Shutdown procedure, but user don't have to call this routine. The */
|
||||||
/* kernel automatically kill threads. */
|
/* kernel automatically kill threads. */
|
||||||
|
|
||||||
int blas_thread_shutdown_(void){
|
int BLASFUNC(blas_thread_shutdown)(void){
|
||||||
|
|
||||||
int i;
|
int i;
|
||||||
|
|
||||||
|
|
|
@ -1289,6 +1289,7 @@ void DESTRUCTOR gotoblas_quit(void) {
|
||||||
moncontrol (1);
|
moncontrol (1);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
blas_shutdown();
|
||||||
}
|
}
|
||||||
|
|
||||||
#if (defined(C_PGI) || (!defined(C_SUN) && defined(F_INTERFACE_SUN))) && (defined(ARCH_X86) || defined(ARCH_X86_64))
|
#if (defined(C_PGI) || (!defined(C_SUN) && defined(F_INTERFACE_SUN))) && (defined(ARCH_X86) || defined(ARCH_X86_64))
|
||||||
|
|
Loading…
Reference in New Issue