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 | 8638a9a7028eb75fafa0cdadb61607c938d6f9d7 (patch) | |
| tree | 6ae46c1f595fcb32755a6a3d13be38f1483753c3 /generic/tclBasic.c | |
| parent | 5249ebb8bd026a8f3867685a9ab818518109503f (diff) | |
| parent | 08c42880c9767fa9f8b78bae1af6035d59a74631 (diff) | |
| download | tcl-8638a9a7028eb75fafa0cdadb61607c938d6f9d7.zip tcl-8638a9a7028eb75fafa0cdadb61607c938d6f9d7.tar.gz tcl-8638a9a7028eb75fafa0cdadb61607c938d6f9d7.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); |