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

* more little winapi fixes (largeuint)

Browse Source 
git-svn-id: trunk@7821 -
This commit is contained in:
marco 2007-06-26 14:50:24 +00:00
parent 4ff745402e
commit f885568da9
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/base/winunits/activex.pp
View File

@ -32,6 +32,9 @@ type
PBStr = ^TBStr; PBStr = ^TBStr;
TOleEnum = type LongWord; TOleEnum = type LongWord;
LargeInt = Types.LargeInt; LargeInt = Types.LargeInt;
LargeUInt = Types.LargeUInt;
PLargeInt = Types.PLargeInt;
PLargeUInt = Types.PLargeUInt;
{Glue types, should be linked to the proper windows unit types} {Glue types, should be linked to the proper windows unit types}
TYPE TYPE

4
rtl/objpas/types.pp
View File

@ -39,6 +39,10 @@ type
PByte = System.PByte; PByte = System.PByte;
Largeint = int64; Largeint = int64;
LARGE_INT = LargeInt; LARGE_INT = LargeInt;
PLargeInt = ^LargeInt;
LargeUint = qword;
LARGE_UINT= LargeUInt;
PLargeuInt = ^LargeuInt;
TIntegerDynArray = array of Integer; TIntegerDynArray = array of Integer;
TCardinalDynArray = array of Cardinal; TCardinalDynArray = array of Cardinal;