From 8b81ce7e257fd099913561747d18cb62f4c618d3 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Fri, 11 Mar 2016 20:38:48 +0000
Subject: [PATCH] * use PtrUInt instead of Cardinal in GenericAnsiStrLComp and
 GenericAnsiStrLIComp, resolves #29815

git-svn-id: trunk@33218 -
---
 rtl/objpas/sysutils/sysstr.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/objpas/sysutils/sysstr.inc b/rtl/objpas/sysutils/sysstr.inc
index 9e3e9e5a7b..0b35f1a9ed 100644
--- a/rtl/objpas/sysutils/sysstr.inc
+++ b/rtl/objpas/sysutils/sysstr.inc
@@ -347,7 +347,7 @@ end;
 
 function GenericAnsiStrLComp(S1, S2: PChar; MaxLen: PtrUInt): PtrInt;
 
-Var I : cardinal;
+Var I : PtrUInt;
 
 begin
   Result:=0;
@@ -375,7 +375,7 @@ end;
 
 function GenericAnsiStrLIComp(S1, S2: PChar; MaxLen: PtrUInt): PtrInt;
 
-Var I : cardinal;
+Var I : PtrUInt;
 
 begin
   Result:=0;