diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-01-13 14:43:07 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-01-13 14:43:07 (GMT) |
| commit | 35d8e3912d0ac6860f025acd049abc0de8c01f4b (patch) | |
| tree | b83b1bb2c4dd8b6bf0965a5c29529fe3bf570762 /generic/tclEvent.c | |
| parent | 6ecb7aeabf05319bda235ebe45a174137a391447 (diff) | |
| parent | a89608d30815fe6810f77524f1cb1a709d697b51 (diff) | |
| download | tcl-35d8e3912d0ac6860f025acd049abc0de8c01f4b.zip tcl-35d8e3912d0ac6860f025acd049abc0de8c01f4b.tar.gz tcl-35d8e3912d0ac6860f025acd049abc0de8c01f4b.tar.bz2 | |
Introduce new function TclInitThreadAlloc(), symmetric with TclFinalizeThreadAlloc()
Diffstat (limited to 'generic/tclEvent.c')
| -rw-r--r-- | generic/tclEvent.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclEvent.c b/generic/tclEvent.c index b0b8188..436db7a 100644 --- a/generic/tclEvent.c +++ b/generic/tclEvent.c @@ -1043,6 +1043,9 @@ TclInitSubsystems(void) #if USE_TCLALLOC TclInitAlloc(); /* Process wide mutex init */ #endif +#if defined(TCL_THREADS) && defined(USE_THREAD_ALLOC) + TclInitThreadAlloc(); /* Setup thread allocator caches */ +#endif #ifdef TCL_MEM_DEBUG TclInitDbCkalloc(); /* Process wide mutex init */ #endif |