From 08c42880c9767fa9f8b78bae1af6035d59a74631 Mon Sep 17 00:00:00 2001
From: sebres <sebres@users.sourceforge.net>
Date: Thu, 30 May 2024 18:36:29 +0000
Subject: closes [34870ab5756911d1]: no double free if Tcl_DeleteAssocData gets
 called in deleteProc (if interp gets deleted); amend to [ec7e558c34856b07],
 reverts [b95643fa3926f2e3].

---
 generic/tclBasic.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 2514364..4cf24e4 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -2000,10 +2000,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);
 	    ckfree(dPtr);
 	}
 	Tcl_DeleteHashTable(hTablePtr);
-- 
cgit v0.12