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

Extended RTTI: generate RTTI for Objective-C fields like for generic pointers

Browse Source 
Resolves #41034
This commit is contained in:
Jonas Maebe 2025-01-01 22:06:10 +01:00
parent 5add799193
commit f3b2836947
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ncgrtti.pas
View File

@ -867,7 +867,10 @@ implementation
{ FieldOffset }
tcb.emit_tai(Tai_const.Create_sizeint(fldsym.fieldoffset),sizeuinttype);
{ FieldType: PPTypeInfo }
tcb.emit_tai(Tai_const.Create_sym(RTTIWriter.get_rtti_label(fldsym.vardef,fullrtti,true)),voidpointertype);
if is_objc_class_or_protocol(fldsym.vardef) then
tcb.emit_tai(Tai_const.Create_sym(RTTIWriter.get_rtti_label(voidpointertype,fullrtti,true)),voidpointertype)
else
tcb.emit_tai(Tai_const.Create_sym(RTTIWriter.get_rtti_label(fldsym.vardef,fullrtti,true)),voidpointertype);
{ FieldVisibility }
tcb.emit_ord_const(visibility_to_rtti_flags(fldsym.visibility),u8inttype);
{ Name }