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 60d2d7e..3dcacbf 100644 --- a/generic/tclHash.c +++ b/generic/tclHash.c @@ -783,6 +783,7 @@ AllocStringEntry( allocsize = sizeof(hPtr->key); } hPtr = Tcl_Alloc(offsetof(Tcl_HashEntry, key) + allocsize); + memset(hPtr, 0, sizeof(Tcl_HashEntry) + allocsize - sizeof(hPtr->key)); memcpy(hPtr->key.string, string, size); Tcl_SetHashValue(hPtr, NULL); return hPtr; |