summaryrefslogtreecommitdiffstats
path: root/generic/tclTrace.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-10-02 17:43:16 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-10-02 17:43:16 (GMT)
commitb6d046213b7d8a18051b7b0992c6bc1516e4ed2a (patch)
treea2c4e21540a3eb65b475600ee0d11f1a21e35148 /generic/tclTrace.c
parente500dec9fd8fb77231632352b45d2b0b715cdc22 (diff)
downloadtcl-b6d046213b7d8a18051b7b0992c6bc1516e4ed2a.zip
tcl-b6d046213b7d8a18051b7b0992c6bc1516e4ed2a.tar.gz
tcl-b6d046213b7d8a18051b7b0992c6bc1516e4ed2a.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.c6
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,