diff options
| -rw-r--r-- | ChangeLog | 11 | ||||
| -rw-r--r-- | generic/regc_lex.c | 2 |
2 files changed, 8 insertions, 5 deletions
@@ -1,19 +1,22 @@ +2007-10-27 Donal K. Fellows <dkf@users.sf.net> + + * generic/regc_lex.c (lexescape): Close off one of the problems + mentioned in [Bug 1810264] + 2007-10-27 Miguel Sofer <msofer@users.sf.net> * 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 <msofer@users.sf.net> * generic/tclVar.c: try to preserve Tcl_Objs when doing variable lookups by name, partially addressing [Bug 1793601] - + 2007-10-27 Donal K. Fellows <dkf@users.sf.net> * 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); } |