diff options
author | dgp <dgp@users.sourceforge.net> | 2017-10-30 14:56:57 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2017-10-30 14:56:57 (GMT) |
commit | 3aa68b1a0bf5f1f0d08c76c900f86e3366c062bd (patch) | |
tree | 184c78032824b63368b0b7dff587b00d25552f76 /generic/tclTest.c | |
parent | e0578530b062a38b3fe7dfd1474dd3caa927c271 (diff) | |
download | tcl-3aa68b1a0bf5f1f0d08c76c900f86e3366c062bd.zip tcl-3aa68b1a0bf5f1f0d08c76c900f86e3366c062bd.tar.gz tcl-3aa68b1a0bf5f1f0d08c76c900f86e3366c062bd.tar.bz2 |
Patch to make changes to Tcl 9 prescribed by TIPs 330 and 336.
This makes the Tcl_Interp struct fully opaque.
No interp->result or interp->errorline
Diffstat (limited to 'generic/tclTest.c')
-rw-r--r-- | generic/tclTest.c | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index ebd90ae..6e357c2 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -5187,7 +5187,6 @@ TestsaveresultCmd( int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* The argument objects. */ { - Interp* iPtr = (Interp*) interp; int discard, result, index; Tcl_SavedResult state; Tcl_Obj *objPtr; @@ -5255,12 +5254,9 @@ TestsaveresultCmd( } switch ((enum options) index) { - case RESULT_DYNAMIC: { - int presentOrFreed = (iPtr->freeProc == TestsaveresultFree) ^ freeCount; - - Tcl_AppendElement(interp, presentOrFreed ? "presentOrFreed" : "missingOrLeak"); + case RESULT_DYNAMIC: + Tcl_AppendElement(interp, freeCount ? "freed" : "leak"); break; - } case RESULT_OBJECT: Tcl_AppendElement(interp, Tcl_GetObjResult(interp) == objPtr ? "same" : "different"); |