diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2021-05-15 18:42:40 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2021-05-15 18:42:40 (GMT) |
| commit | 1134511a980250dfb27153be57b4e64e8455cdfe (patch) | |
| tree | 3cebf719433c4728b84db361d6af01781fd019dc /generic/tclTestObj.c | |
| parent | 0f818acbb72a2b4792acb1d82f051507c76e59a2 (diff) | |
| download | tcl-1134511a980250dfb27153be57b4e64e8455cdfe.zip tcl-1134511a980250dfb27153be57b4e64e8455cdfe.tar.gz tcl-1134511a980250dfb27153be57b4e64e8455cdfe.tar.bz2 | |
When deleting an interp, delete associated data after running the corresponding
Tcl_InterpDeleteProc instead of before to allow the Tcl_InterpDeleteProc to
make use of the data.
In TcltestObj.c/VarPtrDeleteProc, remove call to Tcl_DeleteAssocData that is
redundant and cylic.
Diffstat (limited to 'generic/tclTestObj.c')
| -rw-r--r-- | generic/tclTestObj.c | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/generic/tclTestObj.c b/generic/tclTestObj.c index 17546a4..4e7cec9 100644 --- a/generic/tclTestObj.c +++ b/generic/tclTestObj.c @@ -61,7 +61,6 @@ static void VarPtrDeleteProc(void *clientData, Tcl_Interp *interp) for (i = 0; i < NUMBER_OF_OBJECT_VARS; i++) { if (varPtr[i]) Tcl_DecrRefCount(varPtr[i]); } - Tcl_DeleteAssocData(interp, VARPTR_KEY); ckfree(varPtr); } |