--- Merging r35327 into '.':

U    packages/rtl-objpas/src/inc/strutils.pp
--- Recording mergeinfo for merge of r35327 into '.':
 U   .

# revisions: 35327


git-svn-id: http://svn.freepascal.org/svn/fpc/branches/fixes_3_0@35328 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 2 insertions, 2 deletions

diff --git a/packages/rtl-objpas/src/inc/strutils.pp b/packages/rtl-objpas/src/inc/strutils.pp
index 5def35f24d..19e1cc9abd 100644
--- a/packages/rtl-objpas/src/inc/strutils.pp
+++ b/packages/rtl-objpas/src/inc/strutils.pp
@@ -819,7 +819,7 @@ Var
 
 begin
   FindMatchesBoyerMooreCaseSensitive(PChar(S),Pchar(OldPattern),Length(S),Length(OldPattern),aMatches,aMatchAll);
-  For I:=0 to Length(AMatches) do
+  For I:=0 to pred(Length(AMatches)) do
     Inc(AMatches[i]);
 end;
 
@@ -830,7 +830,7 @@ Var
 
 begin
   FindMatchesBoyerMooreCaseInSensitive(PChar(S),Pchar(OldPattern),Length(S),Length(OldPattern),aMatches,aMatchAll);
-  For I:=0 to Length(AMatches) do
+  For I:=0 to pred(Length(AMatches)) do
     Inc(AMatches[i]);
 end;