From 2af6b236b744c898d1f8987aab38ee4c95998a4e Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 20 Mar 2016 22:48:46 +0000
Subject: [PATCH] * Fix failing testcase

git-svn-id: trunk@33305 -
---
 packages/rtl-objpas/src/inc/strutils.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/rtl-objpas/src/inc/strutils.pp b/packages/rtl-objpas/src/inc/strutils.pp
index 9ff3bcb426..a52b25bc5a 100644
--- a/packages/rtl-objpas/src/inc/strutils.pp
+++ b/packages/rtl-objpas/src/inc/strutils.pp
@@ -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