diff options
| -rw-r--r-- | generic/tclBasic.c | 2 | ||||
| -rw-r--r-- | generic/tclTest.c | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index f207a3e..5368681 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -1670,11 +1670,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); } /* diff --git a/generic/tclTest.c b/generic/tclTest.c index abfa0ad..d4db7d6 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -7776,7 +7776,7 @@ TestGetUniCharCmd( int c ; if (objc != 3) { Tcl_WrongNumArgs(interp, 1, objv, "STRING INDEX"); - return TCL_ERROR; + return TCL_ERROR; } Tcl_GetIntFromObj(interp, objv[2], &index); c = Tcl_GetUniChar(objv[1], index); |