another fix for back-search

andgineer · May 28, 2024 · b7bb814 · b7bb814
1 parent ef5b7d5
commit b7bb814
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/regexpr.pas b/src/regexpr.pas
@@ -6870,12 +6870,12 @@ function TRegExpr.ExecPrimProtected(AOffset: Integer; ASlowChecks,
         if (TempMatchPos + TempMatchLen - 1 > AOffset) then
           Continue;
 
-        // do we have surrounding match at prev pos for regex 'w+'? take it.
+        // if we have surrounding match at prev pos e.g. for regex '\w+', take it
         PtrPrev := Ptr;
         repeat
           if (PtrPrev = fInputStart) then Break;
           Dec(PtrPrev);
-          if MatchAtOnePos(PtrPrev) and (MatchPos[0] + MatchLen[0] = TempMatchPos + TempMatchLen) then
+          if MatchAtOnePos(PtrPrev) and (MatchPos[0] + MatchLen[0] >= TempMatchPos + TempMatchLen) then
             Ptr := PtrPrev
           else
           begin