diff options
author | bch <brad.harder@gmail.com> | 2015-02-07 21:12:18 (GMT) |
---|---|---|
committer | bch <brad.harder@gmail.com> | 2015-02-07 21:12:18 (GMT) |
commit | 1dcecc86911575eedfda9caede53f086bbbf0ad4 (patch) | |
tree | 4d6163ec31594e68e75a1b18e2b4de0fbb18c728 /generic/tclVar.c | |
parent | 80c303fe985156a04d9565cc50a77e52c4f62269 (diff) | |
parent | b45286725aeaf89d746d3f7edc0f125a4c0950a3 (diff) | |
download | tcl-1dcecc86911575eedfda9caede53f086bbbf0ad4.zip tcl-1dcecc86911575eedfda9caede53f086bbbf0ad4.tar.gz tcl-1dcecc86911575eedfda9caede53f086bbbf0ad4.tar.bz2 |
merge [trunk]
Diffstat (limited to 'generic/tclVar.c')
-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); } |