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/tclHash.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/tclHash.c')
-rw-r--r-- | generic/tclHash.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/generic/tclHash.c b/generic/tclHash.c index 35de98c..97e42e2 100644 --- a/generic/tclHash.c +++ b/generic/tclHash.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: tclHash.c,v 1.31 2007/07/02 21:10:52 dgp Exp $ + * RCS: @(#) $Id: tclHash.c,v 1.32 2007/07/31 17:03:38 msofer Exp $ */ #include "tclInt.h" @@ -343,6 +343,7 @@ Tcl_CreateHashEntry( } else { hPtr = (Tcl_HashEntry *) ckalloc((unsigned) sizeof(Tcl_HashEntry)); hPtr->key.oneWordValue = (char *) key; + hPtr->clientData = 0; } hPtr->tablePtr = tablePtr; @@ -355,7 +356,6 @@ Tcl_CreateHashEntry( hPtr->nextPtr = *hPtr->bucketPtr; *hPtr->bucketPtr = hPtr; #endif - hPtr->clientData = 0; tablePtr->numEntries++; /* @@ -724,6 +724,7 @@ AllocArrayEntry( count > 0; count--, iPtr1++, iPtr2++) { *iPtr2 = *iPtr1; } + hPtr->clientData = 0; return hPtr; } @@ -831,7 +832,7 @@ AllocStringEntry( } hPtr = (Tcl_HashEntry *) ckalloc(size); strcpy(hPtr->key.string, string); - + hPtr->clientData = 0; return hPtr; } |