From 97bf16b277083d4f894ee3f6ab1f8a55c2895a17 Mon Sep 17 00:00:00 2001 From: dkf Date: Sat, 27 Oct 2007 13:58:10 +0000 Subject: Part of fix for [Bug 1810264] --- ChangeLog | 11 +++++++---- generic/regc_lex.c | 2 +- 2 files changed, 8 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index 34683ff..483b96e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,19 +1,22 @@ +2007-10-27 Donal K. Fellows + + * generic/regc_lex.c (lexescape): Close off one of the problems + mentioned in [Bug 1810264] + 2007-10-27 Miguel Sofer * doc/apply.n: fixed example [Bug 1811791] * doc/namespace.n: improved example [Bug 1788984] * doc/AddErrInfo.3: typo [Bug 1715087] - + * generic/tclCompile.h: * generic/tclInt.h: moved declaration of TclSetCmdNameObj from tclCompile.h to tclInt.h, reverting linker [Bug 1821159] caused by commit of 2007-10-11 (both I and gcc missed one dep). - -2007-10-27 Miguel Sofer * generic/tclVar.c: try to preserve Tcl_Objs when doing variable lookups by name, partially addressing [Bug 1793601] - + 2007-10-27 Donal K. Fellows * tools/tcltk-man2html.tcl (make-man-pages, htmlize-text) 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); } -- cgit v0.12