pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Redirect "PtrInt" to "NativeInt" on new Delphis

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3717 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2014-11-11 12:02:47 +00:00
parent 9823611c8b
commit 428e582c01
1 changed files with 9 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
wst/trunk/wst_delphi.inc
View File

@ -7,13 +7,17 @@
{$ENDIF CompilerVersion} {$ENDIF CompilerVersion}
{$IF Not Declared(QWord) } {$IF Not Declared(QWord) }
QWord = type Int64; QWord = type Int64;
{$IFEND {$IFEND}
}
DWORD = LongWord; DWORD = LongWord;
PtrInt = Integer;
PByteArray = ^ByteArray; PByteArray = ^ByteArray;
ByteArray = array[0..$effffff] of Byte; ByteArray = array[0..$effffff] of Byte;
{$IF Declared(NativeUInt)}
PtrInt = NativeInt;
PtrUInt = NativeUInt;
{$ELSE} // old delphi
PtrInt = Integer;
PtrUInt = Cardinal; PtrUInt = Cardinal;
SizeInt = Longint; {$IFEND}
SizeInt = PtrInt;
UnicodeChar = WideChar; UnicodeChar = WideChar;
{$ENDIF DELPHI} {$ENDIF DELPHI}