diff options
| author | dgp@users.sourceforge.net <dgp> | 2014-10-02 21:40:13 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2014-10-02 21:40:13 (GMT) |
| commit | 1f05d6a3e9702cce698db2abb5d12c2e710b7de8 (patch) | |
| tree | 2a0f814d261f0fb221dda504b024bb0214c7e72e /generic/tclTrace.c | |
| parent | ffcb80ed9649f929513f7313f8e99841bd1feeef (diff) | |
| download | tcl-1f05d6a3e9702cce698db2abb5d12c2e710b7de8.zip tcl-1f05d6a3e9702cce698db2abb5d12c2e710b7de8.tar.gz tcl-1f05d6a3e9702cce698db2abb5d12c2e710b7de8.tar.bz2 | |
Possible fix for testing.
Diffstat (limited to 'generic/tclTrace.c')
| -rw-r--r-- | generic/tclTrace.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/generic/tclTrace.c b/generic/tclTrace.c index 2a348e6..6184a89 100644 --- a/generic/tclTrace.c +++ b/generic/tclTrace.c @@ -2511,11 +2511,10 @@ TclObjCallVarTraces( if (!part1Ptr) { part1Ptr = localName(iPtr->varFramePtr, index); } - if (part1Ptr) { - part1 = TclGetString(part1Ptr); - } else { - part1 = tclEmptyString; + if (!part1Ptr) { + Tcl_Panic("Cannot trace a variable with no name"); } + part1 = TclGetString(part1Ptr); part2 = part2Ptr? TclGetString(part2Ptr) : NULL; return TclCallVarTraces(iPtr, arrayPtr, varPtr, part1, part2, flags, |