diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-05-17 18:53:29 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-05-17 18:53:29 (GMT) |
| commit | 048251612c2caa20202a29d3c12cf640dcc70392 (patch) | |
| tree | 401339ab1470b40cccd1bec272ac42427c694d92 /generic/tclAlloc.c | |
| parent | a3692d5ace9f33575586ab17a8a53f4b2d9ce5b9 (diff) | |
| parent | ee1c787126a30d1bf0ae7d6fb0c11f1df5b71d3b (diff) | |
| download | tcl-048251612c2caa20202a29d3c12cf640dcc70392.zip tcl-048251612c2caa20202a29d3c12cf640dcc70392.tar.gz tcl-048251612c2caa20202a29d3c12cf640dcc70392.tar.bz2 | |
TIP #491 implementation: Threading Support: phasing out non-threaded builds
Diffstat (limited to 'generic/tclAlloc.c')
| -rw-r--r-- | generic/tclAlloc.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclAlloc.c b/generic/tclAlloc.c index 8a4b1c8..e04e9c6 100644 --- a/generic/tclAlloc.c +++ b/generic/tclAlloc.c @@ -22,7 +22,7 @@ */ #include "tclInt.h" -#if !defined(TCL_THREADS) || !defined(USE_THREAD_ALLOC) +#if (defined(TCL_THREADS) && !TCL_THREADS) || !defined(USE_THREAD_ALLOC) #if USE_TCLALLOC @@ -121,7 +121,7 @@ static struct block bigBlocks={ /* Big blocks aren't suballocated. */ * variable. */ -#ifdef TCL_THREADS +#if !defined(TCL_THREADS) || TCL_THREADS static Tcl_Mutex *allocMutexPtr; #endif static int allocInit = 0; @@ -171,7 +171,7 @@ TclInitAlloc(void) { if (!allocInit) { allocInit = 1; -#ifdef TCL_THREADS +#if !defined(TCL_THREADS) || TCL_THREADS allocMutexPtr = Tcl_GetAllocMutex(); #endif } |