diff options
author | dgp <dgp@users.sourceforge.net> | 2019-07-01 19:31:18 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2019-07-01 19:31:18 (GMT) |
commit | 25dac72093e7c722fadf646d2d009732de99c4e4 (patch) | |
tree | 3b4d3d58d0349a79d4a55470a0407bcb46324eb8 /generic | |
parent | 9884b5887e81f5b0ebacc0442f0c1e0f98dd0722 (diff) | |
parent | 572ee1037b9af592a22b3544c98293846f912117 (diff) | |
download | tcl-25dac72093e7c722fadf646d2d009732de99c4e4.zip tcl-25dac72093e7c722fadf646d2d009732de99c4e4.tar.gz tcl-25dac72093e7c722fadf646d2d009732de99c4e4.tar.bz2 |
merge 8.7
Diffstat (limited to 'generic')
-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; |