diff options
| author | dgp@users.sourceforge.net <dgp> | 2014-10-02 17:43:16 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2014-10-02 17:43:16 (GMT) |
| commit | ffcb80ed9649f929513f7313f8e99841bd1feeef (patch) | |
| tree | a2c4e21540a3eb65b475600ee0d11f1a21e35148 /generic/tclTrace.c | |
| parent | 0f550b8833dc9a777bc2924f0efac01e3df7fa90 (diff) | |
| download | tcl-ffcb80ed9649f929513f7313f8e99841bd1feeef.zip tcl-ffcb80ed9649f929513f7313f8e99841bd1feeef.tar.gz tcl-ffcb80ed9649f929513f7313f8e99841bd1feeef.tar.bz2 | |
[bc1a96407a] Partial solution should avoid crash, but may lead to wrong behavior.
Diffstat (limited to 'generic/tclTrace.c')
| -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, |