diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-04-01 11:56:42 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-04-01 11:56:42 (GMT) |
commit | ffcf42745c6b45037104720cdd15d5d7003fdb63 (patch) | |
tree | 079430858ed10ec1e08f8a39ece583e7ecff8c7d /generic | |
parent | 40fd1928b84829f552e0764922b482dce9a17f0a (diff) | |
parent | 421817ca2cce688b0d7b9be9b54da8d1cbaf8013 (diff) | |
download | tcl-ffcf42745c6b45037104720cdd15d5d7003fdb63.zip tcl-ffcf42745c6b45037104720cdd15d5d7003fdb63.tar.gz tcl-ffcf42745c6b45037104720cdd15d5d7003fdb63.tar.bz2 |
Two micro-optimizations in Win and UNIX notifier. See: [http://code.activestate.com/lists/tcl-core/15645/]
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclEvent.c | 3 | ||||
-rw-r--r-- | generic/tclInt.h | 1 |
2 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclEvent.c b/generic/tclEvent.c index 8305410..a16a3b1 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) + TclpInitAllocCache(); +#endif #ifdef TCL_MEM_DEBUG TclInitDbCkalloc(); /* Process wide mutex init */ #endif diff --git a/generic/tclInt.h b/generic/tclInt.h index 42c13dd..34430c8 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -4084,6 +4084,7 @@ MODULE_SCOPE void TclFreeAllocCache(void *); MODULE_SCOPE void * TclpGetAllocCache(void); MODULE_SCOPE void TclpSetAllocCache(void *); MODULE_SCOPE void TclpFreeAllocMutex(Tcl_Mutex *mutex); +MODULE_SCOPE void TclpInitAllocCache(void); MODULE_SCOPE void TclpFreeAllocCache(void *); /* |