diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-09-17 13:16:56 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-09-17 13:16:56 (GMT) |
| commit | c87ec53222cb293898d2a2a333f7b44aba9d83a9 (patch) | |
| tree | 35767e3baf38534a501c1e535bfeb62b861c7594 /generic/tclThreadAlloc.c | |
| parent | bd9da528093ab0bcc8fbdd0e1b7acb4315e11f37 (diff) | |
| parent | fc7d1ca9fea4659cab0c374e75bfb7bb9f68c37e (diff) | |
| download | tcl-c87ec53222cb293898d2a2a333f7b44aba9d83a9.zip tcl-c87ec53222cb293898d2a2a333f7b44aba9d83a9.tar.gz tcl-c87ec53222cb293898d2a2a333f7b44aba9d83a9.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclThreadAlloc.c')
| -rw-r--r-- | generic/tclThreadAlloc.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclThreadAlloc.c b/generic/tclThreadAlloc.c index 244e11c..100b109 100644 --- a/generic/tclThreadAlloc.c +++ b/generic/tclThreadAlloc.c @@ -217,10 +217,11 @@ GetCache(void) cachePtr = TclpGetAllocCache(); if (cachePtr == NULL) { - cachePtr = calloc(1, sizeof(Cache)); + cachePtr = TclpSysAlloc(sizeof(Cache), 0); if (cachePtr == NULL) { Tcl_Panic("alloc: could not allocate new cache"); } + memset(cachePtr, 0, sizeof(Cache)); Tcl_MutexLock(listLockPtr); cachePtr->nextPtr = firstCachePtr; firstCachePtr = cachePtr; |