summaryrefslogtreecommitdiffstats
path: root/generic/tclUtil.c
diff options
context:
space:
mode:
authordgp@users.sourceforge.net <dgp>2011-07-19 19:31:31 (GMT)
committerdgp@users.sourceforge.net <dgp>2011-07-19 19:31:31 (GMT)
commitbb7f6a8674ca66b329d49198764efe19cdb1c61e (patch)
tree94cd602dcf7621440e6a3ecbe365cb755ee368d3 /generic/tclUtil.c
parentdb1ca791c185d9508e8964dd6ea7cf0c0283648b (diff)
parent9eab705b3e253d233b0f5ca10e0f38770e65d471 (diff)
downloadtcl-bb7f6a8674ca66b329d49198764efe19cdb1c61e.zip
tcl-bb7f6a8674ca66b329d49198764efe19cdb1c61e.tar.gz
tcl-bb7f6a8674ca66b329d49198764efe19cdb1c61e.tar.bz2
3371644 Repair failure to properly handle (length == -1) in TclConvertElement().
Diffstat (limited to 'generic/tclUtil.c')
-rw-r--r--generic/tclUtil.c4
1 files changed, 1 insertions, 3 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c
index 55103e3..51508d2 100644
--- a/generic/tclUtil.c
+++ b/generic/tclUtil.c
@@ -1261,9 +1261,7 @@ int TclConvertElement(
p[1] = '#';
p += 2;
src++;
- if (length > 0) {
- length--;
- }
+ length -= (length > 0);
} else {
conversion = CONVERT_BRACE;
}