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

* Correct TRttiOrdinalType.GetIsOrdinal. Patch from Lipinast Lekrisov

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-12-17 18:06:00 +01:00
parent 072cb55315
commit fd10c88264
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/rtl-objpas/src/inc/rtti.pp
View File

@ -421,12 +421,15 @@ type
property FloatType: TFloatType read GetFloatType;
end;
{ TRttiOrdinalType }
TRttiOrdinalType = class(TRttiType)
private
function GetMaxValue: LongInt; inline;
function GetMinValue: LongInt; inline;
function GetOrdType: TOrdType; inline;
protected
function GetIsOrdinal: Boolean; override;
function GetTypeSize: Integer; override;
public
property OrdType: TOrdType read GetOrdType;
@ -5151,6 +5154,11 @@ begin
Result := FTypeData^.OrdType;
end;
function TRttiOrdinalType.GetIsOrdinal: Boolean;
begin
Result:=True;
end;
function TRttiOrdinalType.GetTypeSize: Integer;
begin
case OrdType of
@ -7537,7 +7545,7 @@ end;
function TRttiType.GetMethods(const aName: string): TRttiMethodArray;
var
methods: specialize TArray<TRttiMethod>;
methods: TRttiMethodArray;
method: TRttiMethod;
count: Integer;
begin