From 5c4db7dbca8f5d751aff8796c06c47ca339f2675 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 5 Jan 2025 11:49:49 +0100
Subject: [PATCH] Extended RTTI: more Objective-C handling

Resolves #41034
---
 compiler/ncgrtti.pas | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/compiler/ncgrtti.pas b/compiler/ncgrtti.pas
index 01a8b3f7b6..963a66cf39 100644
--- a/compiler/ncgrtti.pas
+++ b/compiler/ncgrtti.pas
@@ -1591,7 +1591,10 @@ implementation
                { total element count }
                tcb.emit_tai(Tai_const.Create_sizeint(asizeint(totalcount)),sizeuinttype);
                { last dimension element type }
-               tcb.emit_tai(Tai_const.Create_sym(get_rtti_label(curdef.elementdef,rt,true)),voidpointertype);
+               if is_objc_class_or_protocol(curdef.elementdef) then
+                 tcb.emit_tai(Tai_const.Create_sym(get_rtti_label(voidpointertype,rt,true)),voidpointertype)
+               else
+                 tcb.emit_tai(Tai_const.Create_sym(get_rtti_label(curdef.elementdef,rt,true)),voidpointertype);
                { dimension count }
                tcb.emit_ord_const(dimcount,u8inttype);
                finaldef:=def;
@@ -2635,6 +2638,10 @@ implementation
         rttidef: tdef;
         s: TIDString;
       begin
+        { Objective-C has its own RTTI system }
+        if is_objc_class_or_protocol(def) then
+          exit;
+
         { only write rtti of definitions from the current module }
         if not findunitsymtable(def.owner).iscurrentunit then
           exit;