summaryrefslogtreecommitdiffstats
path: root/generic/tclThread.c
diff options
context:
space:
mode:
authorJoe Mistachkin <joe@mistachkin.com>2009-03-16 00:43:08 (GMT)
committerJoe Mistachkin <joe@mistachkin.com>2009-03-16 00:43:08 (GMT)
commitc24409225ce9d89cb1c7c4406cb2da6e3e537cea (patch)
treef2cd1de3f4bd6ac95a11882faee7f00fc5dd033c /generic/tclThread.c
parenta8ac6c3230544ef6ce40e973f040b489706d5ed2 (diff)
downloadtcl-c24409225ce9d89cb1c7c4406cb2da6e3e537cea.zip
tcl-c24409225ce9d89cb1c7c4406cb2da6e3e537cea.tar.gz
tcl-c24409225ce9d89cb1c7c4406cb2da6e3e537cea.tar.bz2
revise fix for [Bug 2687952]
Diffstat (limited to 'generic/tclThread.c')
-rw-r--r--generic/tclThread.c7
1 files changed, 2 insertions, 5 deletions
diff --git a/generic/tclThread.c b/generic/tclThread.c
index 314a4fb..58cc18d 100644
--- a/generic/tclThread.c
+++ b/generic/tclThread.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclThread.c,v 1.24 2009/03/15 22:34:59 dkf Exp $
+ * RCS: @(#) $Id: tclThread.c,v 1.25 2009/03/16 00:43:09 mistachkin Exp $
*/
#include "tclInt.h"
@@ -88,10 +88,7 @@ Tcl_GetThreadData(
result = TclThreadStorageKeyGet(keyPtr);
if (result == NULL) {
- result = TclpSysAlloc((size_t) size, 0);
- if (result == NULL) {
- Tcl_Panic("unable to alloc %u bytes", (unsigned) size);
- }
+ result = ckalloc((size_t)size);
memset(result, 0, (size_t) size);
TclThreadStorageKeySet(keyPtr, result);
}