diff options
| author | dgp <dgp@users.sourceforge.net> | 2015-01-29 17:48:19 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2015-01-29 17:48:19 (GMT) |
| commit | 579463bcecf893ad79a30672022b2ea2cc578448 (patch) | |
| tree | 23f487ce951f6d2279cbd779cc3f9a31f7ccb5f9 | |
| parent | 6a233e935bce9e325c8faf64734d6e2043b041ba (diff) | |
| parent | 2f36a2d3491daec49498178ed26a70e629304a8d (diff) | |
| download | tcl-579463bcecf893ad79a30672022b2ea2cc578448.zip tcl-579463bcecf893ad79a30672022b2ea2cc578448.tar.gz tcl-579463bcecf893ad79a30672022b2ea2cc578448.tar.bz2 | |
Protect against extension variable resolvers that fail to play by the post-Var Reform rules.
| -rw-r--r-- | generic/tclVar.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c index ec4c13c..0228a2c 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -4746,7 +4746,7 @@ Tcl_GetVariableFullName( } else if (iPtr->varFramePtr->procPtr) { int index = varPtr - iPtr->varFramePtr->compiledLocals; - if (index < iPtr->varFramePtr->numCompiledLocals) { + if (index >= 0 && index < iPtr->varFramePtr->numCompiledLocals) { namePtr = localName(iPtr->varFramePtr, index); Tcl_AppendObjToObj(objPtr, namePtr); } |