diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-05-22 20:57:12 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-05-22 20:57:12 (GMT) |
| commit | ae73bae096e79e0d8031278d53738217c8eda75c (patch) | |
| tree | c5ed99f48930c731fa61f95e6ed1d54e570be4d5 /generic/tclBasic.c | |
| parent | 7bc7f4397fe3edbdbc6136f6cbe223b3704a054e (diff) | |
| parent | ce025f259b91e61857e70c6690d5db631b5dc747 (diff) | |
| download | tcl-ae73bae096e79e0d8031278d53738217c8eda75c.zip tcl-ae73bae096e79e0d8031278d53738217c8eda75c.tar.gz tcl-ae73bae096e79e0d8031278d53738217c8eda75c.tar.bz2 | |
merge 8.7
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 14f7132..9240b93 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -713,7 +713,7 @@ Tcl_CreateInterp(void) * cache was already initialised by the call to alloc the interp struct. */ -#if (!defined(TCL_THREADS) || TCL_THREADS) && defined(USE_THREAD_ALLOC) +#if TCL_THREADS && defined(USE_THREAD_ALLOC) iPtr->allocCache = TclpGetAllocCache(); #else iPtr->allocCache = NULL; @@ -923,7 +923,7 @@ Tcl_CreateInterp(void) Tcl_SetVar2(interp, "tcl_version", NULL, TCL_VERSION, TCL_GLOBAL_ONLY); TclpSetVariables(interp); -#if !defined(TCL_THREADS) || TCL_THREADS +#if TCL_THREADS /* * The existence of the "threaded" element of the tcl_platform array * indicates that this particular Tcl shell has been compiled with threads |