* fixed test on 64 bit platforms

git-svn-id: trunk@27927 -
2025-04-24 04:39:10 +02:00 · 2014-06-10 19:05:08 +00:00 · 2014-06-10 19:05:08 +00:00 · e5647d5118
commit e5647d5118
parent 96b73b0076
1 changed files with 1 additions and 1 deletions
--- a/tests/webtbs/tw22540.pp
+++ b/tests/webtbs/tw22540.pp
@ -14,7 +14,7 @@ type
                       Type
                         PKey  = ^TKey;
                         PValue= ^TValue;
-                         TKeyCompareFunc  = function(const Key1, Key2: TKey): PtrInt; // returns ptrint in FPC, don't know about XE2
+                         TKeyCompareFunc  = function(const Key1, Key2: TKey): Integer; // returns Integer both in FPC and Delphi
                         TFinalizeKeyFunc = Procedure(var Key1:TKey) of object;
                       private
                         keycomparefunc:TKeyCompareFunc;