From 3f0df06c2860788c6591b03e38b7dcd5bcfd27a6 Mon Sep 17 00:00:00 2001 From: Bram Moolenaar Date: Wed, 14 Aug 2013 13:34:25 +0200 Subject: updated for version 7.4.002 Problem: Pattern with two alternative look-behind matches does not match. (Amadeus Demarzi) Solution: When comparing PIMs also compare their state ID to see if they are different. --- src/regexp_nfa.c | 3 +++ src/testdir/test64.in | 3 +++ src/testdir/test64.ok | 3 +++ src/version.c | 2 ++ 4 files changed, 11 insertions(+) diff --git a/src/regexp_nfa.c b/src/regexp_nfa.c index 0e172c8ca..203d9ff64 100644 --- a/src/regexp_nfa.c +++ b/src/regexp_nfa.c @@ -3782,6 +3782,9 @@ pim_equal(one, two) if (two_unused) /* one is used and two is not: not equal */ return FALSE; + /* compare the state id */ + if (one->state->id != two->state->id) + return FALSE; /* compare the position */ if (REG_MULTI) return one->end.pos.lnum == two->end.pos.lnum diff --git a/src/testdir/test64.in b/src/testdir/test64.in index b29fe76f2..ac3f13d54 100644 --- a/src/testdir/test64.in +++ b/src/testdir/test64.in @@ -421,6 +421,9 @@ STARTTEST :call add(tl, [2, '\(foo\)\@<=\>', 'barfoo', '', 'foo']) :call add(tl, [2, '\(foo\)\@<=.*', 'foobar', 'bar', 'foo']) :" +:" complicated look-behind match +:call add(tl, [2, '\(r\@<=\|\w\@ :call add(tl, [2, '\(a*\)\@>a', 'aaaa']) :call add(tl, [2, '\(a*\)\@>b', 'aaab', 'aaab', 'aaa']) diff --git a/src/testdir/test64.ok b/src/testdir/test64.ok index 733ad8703..da19c0423 100644 --- a/src/testdir/test64.ok +++ b/src/testdir/test64.ok @@ -974,6 +974,9 @@ OK 2 - \(foo\)\@<=\> OK 0 - \(foo\)\@<=.* OK 1 - \(foo\)\@<=.* OK 2 - \(foo\)\@<=.* +OK 0 - \(r\@<=\|\w\@a OK 1 - \(a*\)\@>a OK 2 - \(a*\)\@>a diff --git a/src/version.c b/src/version.c index 8eccd3cf0..f23fd0d78 100644 --- a/src/version.c +++ b/src/version.c @@ -727,6 +727,8 @@ static char *(features[]) = static int included_patches[] = { /* Add new patch number below this line */ +/**/ + 2, /**/ 1, /**/ -- cgit v1.2.1