mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-30 07:09:14 +02:00
define ULONG_PTR for non-windows and 2.0.2
git-svn-id: trunk@9233 -
This commit is contained in:
parent
df4cb19ad7
commit
9662961394
@ -113,6 +113,8 @@ type
|
|||||||
LPARAM = type PtrInt; //LongInt;
|
LPARAM = type PtrInt; //LongInt;
|
||||||
LRESULT = type PtrInt; //LongInt;
|
LRESULT = type PtrInt; //LongInt;
|
||||||
|
|
||||||
|
ULONG_PTR = type PtrUInt;
|
||||||
|
|
||||||
{$else}
|
{$else}
|
||||||
HKEY = Windows.HKEY;
|
HKEY = Windows.HKEY;
|
||||||
HDC = Windows.HDC;
|
HDC = Windows.HDC;
|
||||||
@ -137,6 +139,10 @@ type
|
|||||||
WPARAM = Windows.WPARAM;
|
WPARAM = Windows.WPARAM;
|
||||||
LPARAM = Windows.LPARAM;
|
LPARAM = Windows.LPARAM;
|
||||||
LRESULT = Windows.LRESULT;
|
LRESULT = Windows.LRESULT;
|
||||||
|
|
||||||
|
{$if defined(VER2_0_2)}
|
||||||
|
ULONG_PTR = type PtrUInt;
|
||||||
|
{$endif}
|
||||||
{$endif}
|
{$endif}
|
||||||
|
|
||||||
TLCLIntfHandle = type THandle;
|
TLCLIntfHandle = type THandle;
|
||||||
|
Loading…
Reference in New Issue
Block a user