summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog11
-rw-r--r--generic/regc_lex.c2
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 <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);
}