diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-10-02 17:43:16 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-10-02 17:43:16 (GMT) |
| commit | b6d046213b7d8a18051b7b0992c6bc1516e4ed2a (patch) | |
| tree | a2c4e21540a3eb65b475600ee0d11f1a21e35148 | |
| parent | e500dec9fd8fb77231632352b45d2b0b715cdc22 (diff) | |
| download | tcl-b6d046213b7d8a18051b7b0992c6bc1516e4ed2a.zip tcl-b6d046213b7d8a18051b7b0992c6bc1516e4ed2a.tar.gz tcl-b6d046213b7d8a18051b7b0992c6bc1516e4ed2a.tar.bz2 | |
[bc1a96407a] Partial solution should avoid crash, but may lead to wrong behavior.
| -rw-r--r-- | generic/tclTrace.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclTrace.c b/generic/tclTrace.c index c0cde49..2a348e6 100644 --- a/generic/tclTrace.c +++ b/generic/tclTrace.c @@ -2511,7 +2511,11 @@ TclObjCallVarTraces( if (!part1Ptr) { part1Ptr = localName(iPtr->varFramePtr, index); } - part1 = TclGetString(part1Ptr); + if (part1Ptr) { + part1 = TclGetString(part1Ptr); + } else { + part1 = tclEmptyString; + } part2 = part2Ptr? TclGetString(part2Ptr) : NULL; return TclCallVarTraces(iPtr, arrayPtr, varPtr, part1, part2, flags, |