Merge pull request #1957 from martin-frbg/issue1954
Move TLS key deletion to openblas_quit
This commit is contained in:
commit
21c0f2af7b
|
@ -1073,11 +1073,6 @@ static volatile int memory_initialized = 0;
|
|||
}
|
||||
free(table);
|
||||
}
|
||||
#if defined(OS_WINDOWS)
|
||||
TlsFree(local_storage_key);
|
||||
#else
|
||||
pthread_key_delete(local_storage_key);
|
||||
#endif
|
||||
}
|
||||
|
||||
static void blas_memory_init(){
|
||||
|
@ -1491,6 +1486,14 @@ void DESTRUCTOR gotoblas_quit(void) {
|
|||
|
||||
blas_shutdown();
|
||||
|
||||
#if defined(SMP)
|
||||
#if defined(OS_WINDOWS)
|
||||
TlsFree(local_storage_key);
|
||||
#else
|
||||
pthread_key_delete(local_storage_key);
|
||||
#endif
|
||||
#endif
|
||||
|
||||
#ifdef PROFILE
|
||||
moncontrol (0);
|
||||
#endif
|
||||
|
|
Loading…
Reference in New Issue