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

* Add ptr types for fixed(u)int, fixes #40205

Browse Source
This commit is contained in:
marcoonthegit 2023-03-20 11:29:31 +01:00
parent 0d3ec87492
commit 33071fd179
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/objpas/objpas.pp
View File

@ -56,8 +56,11 @@ interface
PPointerArray = ^PointerArray; PPointerArray = ^PointerArray;
// Delphi Berlin compatibility // Delphi Berlin compatibility
FixedInt = Int32; FixedInt = Int32;
FixedUInt = UInt32; FixedUInt = UInt32;
PFixedInt = ^FixedInt;
PFixedUInt= ^FixedUInt;
{$if FPC_FULLVERSION >= 20701} {$if FPC_FULLVERSION >= 20701}