From fd10c8826473e4cf3f333d09dd39e0b218919778 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Tue, 17 Dec 2024 18:06:00 +0100
Subject: [PATCH] * Correct TRttiOrdinalType.GetIsOrdinal. Patch from Lipinast
 Lekrisov

---
 packages/rtl-objpas/src/inc/rtti.pp | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/packages/rtl-objpas/src/inc/rtti.pp b/packages/rtl-objpas/src/inc/rtti.pp
index f528658b3d..64427c53ff 100644
--- a/packages/rtl-objpas/src/inc/rtti.pp
+++ b/packages/rtl-objpas/src/inc/rtti.pp
@@ -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