소스 검색

* 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 년 전
부모
커밋
5595aafa90
1개의 변경된 파일3개의 추가작업 그리고 0개의 파일을 삭제
  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;