Delphi/pascalscript
Delphi/pascalscript
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix IPointer type definition (#234)

Browse Source
This commit is contained in:
zed 2020-09-30 14:53:11 +03:00 committed by GitHub
parent 63dc2a78e1
commit ebf3798c97
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Source/uPSUtils.pas
View File

@ -318,13 +318,10 @@ type
{$IFDEF FPC}
IPointer = PtrUInt;
{$ELSE}
{$IFDEF VER140UP}
IPointer = NativeInt;
{$IFDEF DELPHI2009UP}
IPointer = NativeUInt;
{$ELSE}
{$IFDEF CPUX64}
IPointer = IntPtr;
{$ELSE}
{$IFDEF CPU64} IPointer = LongWord;{$ELSE} IPointer = Cardinal;{$ENDIF}{$ENDIF}
IPointer = Cardinal;
{$ENDIF}
{$ENDIF}
TPSCallingConvention = (cdRegister, cdPascal, cdCdecl, cdStdCall, cdSafeCall);