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

* Changed Integer to Longint in definitions of RTTI structures. It fixes typinfo for 16-bit CPUs.

Browse Source 
git-svn-id: trunk@46503 -
This commit is contained in:
yury 2020-08-20 10:31:56 +00:00
parent 460dc49d68
commit 9a01bcf3dc
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/objpas/typinfo.pp
View File

@ -477,12 +477,12 @@ unit TypInfo;
case TTypeKind of
tkRecord: (
Terminator: Pointer;
Size: Integer;
Size: Longint;
{$ifndef VER3_0}
InitOffsetOp: PRecOpOffsetTable;
ManagementOp: Pointer;
{$endif}
ManagedFieldCount: Integer;
ManagedFieldCount: Longint;
{ ManagedFields: array[0..ManagedFieldCount - 1] of TInitManagedField ; }
);
{ include for proper alignment }
@ -710,10 +710,10 @@ unit TypInfo;
{$ifndef VER3_0}
RecInitInfo: Pointer; { points to TTypeInfo followed by init table }
{$endif VER3_0}
RecSize: Integer;
RecSize: Longint;
case Boolean of
False: (ManagedFldCount: Integer deprecated 'Use RecInitData^.ManagedFieldCount or TotalFieldCount depending on your use case');
True: (TotalFieldCount: Integer);
False: (ManagedFldCount: Longint deprecated 'Use RecInitData^.ManagedFieldCount or TotalFieldCount depending on your use case');
True: (TotalFieldCount: Longint);
{ManagedFields: array[1..TotalFieldCount] of TManagedField}
);
tkHelper:
@ -812,7 +812,7 @@ unit TypInfo;
GetProc : CodePointer;
SetProc : CodePointer;
StoredProc : CodePointer;
Index : Integer;
Index : Longint;
Default : Longint;
NameIndex : SmallInt;