paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 08:49:25 +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 case TTypeKind of
tkRecord: ( tkRecord: (
Terminator: Pointer; Terminator: Pointer;
Size: Integer; Size: Longint;
{$ifndef VER3_0} {$ifndef VER3_0}
InitOffsetOp: PRecOpOffsetTable; InitOffsetOp: PRecOpOffsetTable;
ManagementOp: Pointer; ManagementOp: Pointer;
{$endif} {$endif}
ManagedFieldCount: Integer; ManagedFieldCount: Longint;
{ ManagedFields: array[0..ManagedFieldCount - 1] of TInitManagedField ; } { ManagedFields: array[0..ManagedFieldCount - 1] of TInitManagedField ; }
); );
{ include for proper alignment } { include for proper alignment }
@ -710,10 +710,10 @@ unit TypInfo;
{$ifndef VER3_0} {$ifndef VER3_0}
RecInitInfo: Pointer; { points to TTypeInfo followed by init table } RecInitInfo: Pointer; { points to TTypeInfo followed by init table }
{$endif VER3_0} {$endif VER3_0}
RecSize: Integer; RecSize: Longint;
case Boolean of case Boolean of
False: (ManagedFldCount: Integer deprecated 'Use RecInitData^.ManagedFieldCount or TotalFieldCount depending on your use case'); False: (ManagedFldCount: Longint deprecated 'Use RecInitData^.ManagedFieldCount or TotalFieldCount depending on your use case');
True: (TotalFieldCount: Integer); True: (TotalFieldCount: Longint);
{ManagedFields: array[1..TotalFieldCount] of TManagedField} {ManagedFields: array[1..TotalFieldCount] of TManagedField}
); );
tkHelper: tkHelper:
@ -812,7 +812,7 @@ unit TypInfo;
GetProc : CodePointer; GetProc : CodePointer;
SetProc : CodePointer; SetProc : CodePointer;
StoredProc : CodePointer; StoredProc : CodePointer;
Index : Integer; Index : Longint;
Default : Longint; Default : Longint;
NameIndex : SmallInt; NameIndex : SmallInt;