diff options
| author | sebres <sebres@users.sourceforge.net> | 2024-05-30 18:38:05 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2024-05-30 18:38:05 (GMT) |
| commit | d4a61adbe45cca90aa1491d7b31452a6c9938d6c (patch) | |
| tree | 6ae46c1f595fcb32755a6a3d13be38f1483753c3 /generic/tclBasic.c | |
| parent | 593ded5c879d05f2ae106f77158c55087feef885 (diff) | |
| parent | c6cbb0ff4a7bb42711f2b21953de289903ffa8b4 (diff) | |
| download | tcl-d4a61adbe45cca90aa1491d7b31452a6c9938d6c.zip tcl-d4a61adbe45cca90aa1491d7b31452a6c9938d6c.tar.gz tcl-d4a61adbe45cca90aa1491d7b31452a6c9938d6c.tar.bz2 | |
merge 8.7
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 1f1aa2a..16721b1 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -1979,10 +1979,10 @@ DeleteInterpProc( hPtr != NULL; hPtr = Tcl_FirstHashEntry(hTablePtr, &search)) { dPtr = (AssocData *)Tcl_GetHashValue(hPtr); + Tcl_DeleteHashEntry(hPtr); if (dPtr->proc != NULL) { dPtr->proc(dPtr->clientData, interp); } - Tcl_DeleteHashEntry(hPtr); Tcl_Free(dPtr); } Tcl_DeleteHashTable(hTablePtr); |