Browse Source

* support for Delphi/64 NativeInt and NativeUint as shown in several promotions on the web. (aliases for ptrint/ptruint)

git-svn-id: trunk@17303 -
marco 14 years ago
parent
commit
5595aafa90
1 changed files with 3 additions and 0 deletions
  1. 3 0
      rtl/inc/systemh.inc

+ 3 - 0
rtl/inc/systemh.inc

@@ -264,6 +264,9 @@ Type
   ValUInt = Word;
 {$endif CPU16}
 
+  NativeInt  = PtrInt;
+  NativeUint = PtrUint;
+
 { Zero - terminated strings }
   PChar               = ^Char;
   PPChar              = ^PChar;