From 428e582c01ce829f8b147c91e030a25499ecc40b Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 11 Nov 2014 12:02:47 +0000
Subject: [PATCH] Redirect "PtrInt" to "NativeInt" on new Delphis

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3717 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/wst_delphi.inc | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/wst/trunk/wst_delphi.inc b/wst/trunk/wst_delphi.inc
index 83069a4bc..87d818c78 100644
--- a/wst/trunk/wst_delphi.inc
+++ b/wst/trunk/wst_delphi.inc
@@ -7,13 +7,17 @@
   {$ENDIF CompilerVersion}
   {$IF Not Declared(QWord) }
     QWord = type Int64;
-  {$IFEND
-  }  
+  {$IFEND}
     DWORD = LongWord;
-    PtrInt = Integer;
     PByteArray = ^ByteArray;
     ByteArray = array[0..$effffff] of Byte;
-    PtrUInt = Cardinal;
-    SizeInt = Longint;
+    {$IF Declared(NativeUInt)}
+      PtrInt  = NativeInt;
+      PtrUInt = NativeUInt;
+    {$ELSE} // old delphi
+      PtrInt = Integer;
+      PtrUInt = Cardinal;
+    {$IFEND}
+    SizeInt = PtrInt;
     UnicodeChar = WideChar;
 {$ENDIF DELPHI}