diff options
| -rw-r--r-- | unix/tclUnixThrd.c | 4 | ||||
| -rw-r--r-- | win/coffbase.txt | 1 | ||||
| -rw-r--r-- | win/tclWinThrd.c | 4 |
3 files changed, 5 insertions, 4 deletions
diff --git a/unix/tclUnixThrd.c b/unix/tclUnixThrd.c index 562c7ee..cf81850 100644 --- a/unix/tclUnixThrd.c +++ b/unix/tclUnixThrd.c @@ -713,7 +713,7 @@ TclpInitAllocCache(void) { pthread_mutex_lock(allocLockPtr); pthread_key_create(&key, TclpFreeAllocCache); - pthread_mutex_unlock(allocLockPtr); + pthread_mutex_unlock(allocLockPtr); } void @@ -727,7 +727,7 @@ TclpFreeAllocCache( TclFreeAllocCache(ptr); pthread_setspecific(key, NULL); - + } else { pthread_key_delete(key); } diff --git a/win/coffbase.txt b/win/coffbase.txt index 0ebe18a..3314f26 100644 --- a/win/coffbase.txt +++ b/win/coffbase.txt @@ -34,6 +34,7 @@ tclsdl 0x10B20000 0x00080000 vqtcl 0x10C00000 0x00010000
tdbc 0x10C40000 0x00010000
thread 0x10C80000 0x00020000
+nsf 0x10ca0000 0x00080000
;
; insert new packages here
;
diff --git a/win/tclWinThrd.c b/win/tclWinThrd.c index 4eb3573..987734d 100644 --- a/win/tclWinThrd.c +++ b/win/tclWinThrd.c @@ -974,11 +974,11 @@ TclpInitAllocCache(void) * We need to make sure that TclpFreeAllocCache is called on each * thread that calls this, but only on threads that call this. */ - + tlsKey = TlsAlloc(); if (tlsKey == TLS_OUT_OF_INDEXES) { Tcl_Panic("could not allocate thread local storage"); - } + } } void * |