diff options
-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); } /* |