paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-04 18:58:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix failing testcase

Browse Source 
git-svn-id: trunk@33305 -
This commit is contained in:
michael 2016-03-20 22:48:46 +00:00
parent d7cc0064d3
commit 2af6b236b7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/rtl-objpas/src/inc/strutils.pp
View File

@ -2591,7 +2591,7 @@ begin
end;
end;
Function isMatch(level : Integer; inputstr,wilds : string; CWild, CinputWord: integer;MaxInputword,maxwilds : word; Out EOS : Boolean) : Boolean;
Function isMatch(level : integer;inputstr,wilds : string; CWild, CinputWord: integer;MaxInputword,maxwilds : word; Out EOS : Boolean) : Boolean;
begin
EOS:=False;
@ -2636,7 +2636,7 @@ begin
Exit;
until (CinputWord > MaxinputWord) or (CWild > MaxWilds);
{ no completed evaluation, we need to check what happened }
if (CinputWord < MaxinputWord) or (CWild < MaxWilds) then
if (CinputWord <= MaxinputWord) or (CWild < MaxWilds) then
Result:=false
else if (CWild>Maxwilds) then
EOS:=False