diff options
| author | ferrieux@users.sourceforge.net <ferrieux> | 2011-07-19 18:13:53 (GMT) |
|---|---|---|
| committer | ferrieux@users.sourceforge.net <ferrieux> | 2011-07-19 18:13:53 (GMT) |
| commit | db1ca791c185d9508e8964dd6ea7cf0c0283648b (patch) | |
| tree | 164e91662821b9684736a6507ea9216888dfce69 /generic/tclUtil.c | |
| parent | eff997aabdb779064e36311d3b474b827fa4e97d (diff) | |
| download | tcl-db1ca791c185d9508e8964dd6ea7cf0c0283648b.zip tcl-db1ca791c185d9508e8964dd6ea7cf0c0283648b.tar.gz tcl-db1ca791c185d9508e8964dd6ea7cf0c0283648b.tar.bz2 | |
Fix [bug 3371644] -- crash on Tcl_ConvertElement with leading pound.
Diffstat (limited to 'generic/tclUtil.c')
| -rw-r--r-- | generic/tclUtil.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index 6f36dad..55103e3 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -1261,7 +1261,9 @@ int TclConvertElement( p[1] = '#'; p += 2; src++; - length--; + if (length > 0) { + length--; + } } else { conversion = CONVERT_BRACE; } |