diff options
Diffstat (limited to 'generic/tclHash.c')
| -rw-r--r-- | generic/tclHash.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclHash.c b/generic/tclHash.c index 2265373..193664d 100644 --- a/generic/tclHash.c +++ b/generic/tclHash.c @@ -839,6 +839,7 @@ AllocStringEntry( allocsize = sizeof(hPtr->key); } hPtr = ckalloc(TclOffset(Tcl_HashEntry, key) + allocsize); + memset(hPtr, 0, sizeof(Tcl_HashEntry) + allocsize - sizeof(hPtr->key)); memcpy(hPtr->key.string, string, size); hPtr->clientData = 0; return hPtr; |