diff options
author | msofer <msofer@noemail.net> | 2007-07-31 17:03:34 (GMT) |
---|---|---|
committer | msofer <msofer@noemail.net> | 2007-07-31 17:03:34 (GMT) |
commit | 4dd0006f8427f73a60236d1fe9849880f0992cf5 (patch) | |
tree | 6bef95f9839cbc6e08ab7040bd9bbd6c9925a5f8 /generic/tclThreadStorage.c | |
parent | 3ad205104a9429bb1207b11dade18b1ec16fc94d (diff) | |
download | tcl-4dd0006f8427f73a60236d1fe9849880f0992cf5.zip tcl-4dd0006f8427f73a60236d1fe9849880f0992cf5.tar.gz tcl-4dd0006f8427f73a60236d1fe9849880f0992cf5.tar.bz2 |
VarReform [Patch 1750051]
*** POTENTIAL INCOMPATIBILITY *** (tclInt.h and tclCompile.h)
FossilOrigin-Name: 2fbb34460171f3c14e4ea5ca51b05b73fe911487
Diffstat (limited to 'generic/tclThreadStorage.c')
-rw-r--r-- | generic/tclThreadStorage.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclThreadStorage.c b/generic/tclThreadStorage.c index 9f25c32..70a0c11 100644 --- a/generic/tclThreadStorage.c +++ b/generic/tclThreadStorage.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclThreadStorage.c,v 1.12 2006/11/13 22:39:56 kennykb Exp $ + * RCS: @(#) $Id: tclThreadStorage.c,v 1.13 2007/07/31 17:03:39 msofer Exp $ */ #include "tclInt.h" @@ -136,7 +136,8 @@ AllocThreadStorageEntry( hPtr = (Tcl_HashEntry *) TclpSysAlloc(sizeof(Tcl_HashEntry), 0); hPtr->key.oneWordValue = keyPtr; - + hPtr->clientData = NULL; + return hPtr; } |