summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2007-10-27 13:58:10 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2007-10-27 13:58:10 (GMT)
commit97bf16b277083d4f894ee3f6ab1f8a55c2895a17 (patch)
tree5d9f0014379f16882f75aaefa34e2bbfef1de9c5 /generic
parentee30df8e7dce83db9022d7742013afd0934ba22c (diff)
downloadtcl-97bf16b277083d4f894ee3f6ab1f8a55c2895a17.zip
tcl-97bf16b277083d4f894ee3f6ab1f8a55c2895a17.tar.gz
tcl-97bf16b277083d4f894ee3f6ab1f8a55c2895a17.tar.bz2
Part of fix for [Bug 1810264]
Diffstat (limited to 'generic')
-rw-r--r--generic/regc_lex.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/regc_lex.c b/generic/regc_lex.c
index f57779d..bc61e14 100644
--- a/generic/regc_lex.c
+++ b/generic/regc_lex.c
@@ -875,7 +875,7 @@ lexescape(
* Ugly heuristic (first test is "exactly 1 digit?")
*/
- if (v->now - save == 0 || (int)c <= v->nsubexp) {
+ if (v->now - save == 0 || ((int) c > 0 && (int)c <= v->nsubexp)) {
NOTE(REG_UBACKREF);
RETV(BACKREF, (chr)c);
}