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 | 4f1ea4779be85d8837f3a133b52d3b5aa9e53fda (patch) | |
| tree | 401339ab1470b40cccd1bec272ac42427c694d92 /generic/tclBasic.c | |
| parent | 4e12ee1bc4fe5d4c49f614f7e18c6df1c8ea0e40 (diff) | |
| parent | f44e7c1795fe27f3f37e692f275545e3fe73ebd6 (diff) | |
| download | tcl-4f1ea4779be85d8837f3a133b52d3b5aa9e53fda.zip tcl-4f1ea4779be85d8837f3a133b52d3b5aa9e53fda.tar.gz tcl-4f1ea4779be85d8837f3a133b52d3b5aa9e53fda.tar.bz2 | |
TIP #491 implementation: Threading Support: phasing out non-threaded builds
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 2ebed06..e20c1b3 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -749,7 +749,7 @@ Tcl_CreateInterp(void) * cache was already initialised by the call to alloc the interp struct. */ -#if defined(TCL_THREADS) && defined(USE_THREAD_ALLOC) +#if (!defined(TCL_THREADS) || TCL_THREADS) && defined(USE_THREAD_ALLOC) iPtr->allocCache = TclpGetAllocCache(); #else iPtr->allocCache = NULL; @@ -964,7 +964,7 @@ Tcl_CreateInterp(void) #endif /* !TCL_NO_DEPRECATED */ TclpSetVariables(interp); -#ifdef TCL_THREADS +#if !defined(TCL_THREADS) || TCL_THREADS /* * The existence of the "threaded" element of the tcl_platform array * indicates that this particular Tcl shell has been compiled with threads |