paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 10:19:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Adding Delphi (2010 or XE) equivalents to our ctypes unit. Mantis #21537

Browse Source 
git-svn-id: trunk@20603 -
This commit is contained in:
marco 2012-03-23 17:49:59 +00:00
parent 6fd24693d6
commit d7d461f6d3
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/systemh.inc
View File

@ -289,6 +289,15 @@ Type
NativeInt = PtrInt; NativeInt = PtrInt;
NativeUint = PtrUint; NativeUint = PtrUint;
Int8 = ShortInt;
Int16 = SmallInt;
Int32 = Integer;
IntPtr = PtrInt;
UInt8 = Byte;
UInt16 = Word;
UInt32 = Cardinal;
UIntPtr = PtrUInt;
{ Zero - terminated strings } { Zero - terminated strings }
PChar = ^Char; PChar = ^Char;
PPChar = ^PChar; PPChar = ^PChar;