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

r336 | jonas | 2012-02-12 22:09:38 +0100 (Sun, 12 Feb 2012) | 2 lines

Browse Source 
* fixed several types for 64 bit platforms (32 bit -> C long)

git-svn-id: trunk@20331 -
This commit is contained in:
Jonas Maebe 2012-02-12 21:11:04 +00:00
parent 0abcb738e5
commit 974e66abce
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/univint/src/MacTypes.pas
View File

@ -398,7 +398,7 @@ type
PtrPtr = ^Ptr;
Handle = ^Ptr;
Handle_fix = Handle; { used as field type when a record declaration contains a Handle field identifier }
Size = SInt32;
Size = SIGNEDLONG;
Size_fix = Size; { used as field type when a record declaration contains a Size field identifier }
SizePtr = ^Size;
UnivPtr = Pointer;
@ -437,16 +437,16 @@ type
ConstLogicalAddress = UnivPtr;
PhysicalAddress = UnivPtr;
BytePtr = UInt8Ptr;
ByteCount = UInt32;
ByteCount = UNSIGNEDLONG;
ByteCountPtr = ^ByteCount;
ByteOffset = UInt32;
ByteOffset = UNSIGNEDLONG;
ByteOffsetPtr = ^ByteOffset;
Duration = SInt32;
AbsoluteTime = UnsignedWide;
AbsoluteTimePtr = ^AbsoluteTime;
OptionBits = UInt32;
OptionBitsPtr = ^OptionBits;
ItemCount = UInt32;
ItemCount = UNSIGNEDLONG;
ItemCountPtr = ^ItemCount;
PBVersion = UInt32;
ScriptCode = SInt16;
@ -623,7 +623,7 @@ type
UTF8Char = UInt8;
UniCharPtr = ^UniChar;
ConstUniCharPtr = UniCharPtr;
UniCharCount = UInt32;
UniCharCount = UNSIGNEDLONG;
UniCharCountPtr = ^UniCharCount;
Str15 = STRING[15];
Str27 = STRING[27];