paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 05:19:17 +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;
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 begin
EOS:=False; EOS:=False;
@ -2636,7 +2636,7 @@ begin
Exit; Exit;
until (CinputWord > MaxinputWord) or (CWild > MaxWilds); until (CinputWord > MaxinputWord) or (CWild > MaxWilds);
{ no completed evaluation, we need to check what happened } { 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 Result:=false
else if (CWild>Maxwilds) then else if (CWild>Maxwilds) then
EOS:=False EOS:=False