diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-19 07:20:06 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-19 07:20:06 (GMT) |
| commit | 7bfe776283e21b9f434c9b47c2ac37b8451f41e8 (patch) | |
| tree | a6f5b5d040080a7366f187aa469fea20773d7863 | |
| parent | 957890bf54197a9221fb3c3e65ef4cbc07490352 (diff) | |
| parent | bdd6e3f4dfea4d7d47d323b51a660c7c7517a531 (diff) | |
| download | tcl-7bfe776283e21b9f434c9b47c2ac37b8451f41e8.zip tcl-7bfe776283e21b9f434c9b47c2ac37b8451f41e8.tar.gz tcl-7bfe776283e21b9f434c9b47c2ac37b8451f41e8.tar.bz2 | |
Fix [7c64aa5e1a]: Another uninitialized-variable bug in BRE-mode parsing. Thanks to Tom Lane for the bug-report and the fix
| -rw-r--r-- | generic/regc_lex.c | 2 | ||||
| -rw-r--r-- | tests/reg.test | 4 |
2 files changed, 5 insertions, 1 deletions
diff --git a/generic/regc_lex.c b/generic/regc_lex.c index ec43497..d96d22f 100644 --- a/generic/regc_lex.c +++ b/generic/regc_lex.c @@ -427,7 +427,7 @@ next( if (INCON(L_BBND) && NEXT1('}')) { v->now++; INTOCON(L_BRE); - RET('}'); + RETV('}', 1); } else { FAILW(REG_BADBR); } diff --git a/tests/reg.test b/tests/reg.test index 063b091..34edc97 100644 --- a/tests/reg.test +++ b/tests/reg.test @@ -1220,6 +1220,10 @@ test reg-33.29 {} { test reg-33.30 {Bug 1080042} { regexp {(\Y)+} foo } 1 +test reg-33.31 {Bug 7c64aa5e1a} { + regexp -inline {(?b).\{1,10\}} {abcdef} +} abcdef + # cleanup ::tcltest::cleanupTests |