diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-09-05 08:30:05 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-09-05 08:30:05 (GMT) |
| commit | a1f009072721df777e34fe4d81b72f2d20d35223 (patch) | |
| tree | 0989a571cfd6badc5a1e5a4d1ccce26a035d91b9 /generic/tclBasic.c | |
| parent | 381c827ae8477c27cb4291cb0fa9c5f84581730c (diff) | |
| download | tcl-a1f009072721df777e34fe4d81b72f2d20d35223.zip tcl-a1f009072721df777e34fe4d81b72f2d20d35223.tar.gz tcl-a1f009072721df777e34fe4d81b72f2d20d35223.tar.bz2 | |
Fix [https://core.tcl-lang.org/tclvfs/tktview/60cacfbcb9|60cacfbcb9]: Segmentation Fault at interpreter exit when tclvfs loaded
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index da8870d..26530c3 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -1232,11 +1232,11 @@ Tcl_DeleteAssocData( return; } dPtr = (AssocData *)Tcl_GetHashValue(hPtr); + Tcl_DeleteHashEntry(hPtr); if (dPtr->proc != NULL) { dPtr->proc(dPtr->clientData, interp); } ckfree(dPtr); - Tcl_DeleteHashEntry(hPtr); } /* |