diff options
| author | evilotto <evilotto> | 2014-11-26 18:17:34 (GMT) |
|---|---|---|
| committer | evilotto <evilotto> | 2014-11-26 18:17:34 (GMT) |
| commit | 5cd6e3655aa18d12fd25de99de591b2e2074049b (patch) | |
| tree | b496abc8bdbca86c65cdc20e6d21f2bc471206c2 /generic/tclTrace.c | |
| parent | 6eb9ac605e8119a21ec7d047ba0da0375559d527 (diff) | |
| parent | 33eb2510ff53b7fd3b32ea1c84b4ef85d00c10f8 (diff) | |
| download | tcl-jcr_notifier_poll.zip tcl-jcr_notifier_poll.tar.gz tcl-jcr_notifier_poll.tar.bz2 | |
Merge from trunkjcr_notifier_poll
Diffstat (limited to 'generic/tclTrace.c')
| -rw-r--r-- | generic/tclTrace.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclTrace.c b/generic/tclTrace.c index c0cde49..6184a89 100644 --- a/generic/tclTrace.c +++ b/generic/tclTrace.c @@ -2511,6 +2511,9 @@ TclObjCallVarTraces( if (!part1Ptr) { part1Ptr = localName(iPtr->varFramePtr, index); } + if (!part1Ptr) { + Tcl_Panic("Cannot trace a variable with no name"); + } part1 = TclGetString(part1Ptr); part2 = part2Ptr? TclGetString(part2Ptr) : NULL; |