From db7b743139fb87740fca682e0181dae74a3af47f Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Mon, 19 Oct 2015 16:53:40 +0000
Subject: [PATCH] * yet another longint replaced with objpasint in
 fpc_shortstr_compare_equal

git-svn-id: trunk@32098 -
---
 rtl/inc/generic.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/inc/generic.inc b/rtl/inc/generic.inc
index af4070b46e..aa186ba7ec 100644
--- a/rtl/inc/generic.inc
+++ b/rtl/inc/generic.inc
@@ -1035,7 +1035,7 @@ function fpc_shortstr_compare_equal(const left,right:shortstring): longint; [pub
 begin
   Result := ObjpasInt(left[0]) - ObjpasInt(right[0]);
   if Result = 0 then
-    Result := CompareByte(left[1],right[1], longint(left[0]));
+    Result := CompareByte(left[1],right[1], ObjpasInt(left[0]));
 end;
 {$endif ndef FPC_SYSTEM_HAS_FPC_SHORTSTR_COMPARE_EQUAL}