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

RTTI: don't generate full RTTI for internal types

Browse Source 
These are types created by the code generator for internal purposes, and hence
are never queried by user code
This commit is contained in:
Jonas Maebe 2022-10-29 13:45:48 +02:00
parent f0e31628ad
commit 49fb1b4c29
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ncgrtti.pas
View File

@ -168,12 +168,15 @@ implementation
(ds_init_table_used in def.defstates) then (ds_init_table_used in def.defstates) then
RTTIWriter.write_rtti(def,initrtti); RTTIWriter.write_rtti(def,initrtti);
{ RTTI } { RTTI }
if ( if not(df_internal in def.defoptions) and
(
(
assigned(def.typesym) and assigned(def.typesym) and
is_global and is_global and
not is_objc_class_or_protocol(def) not is_objc_class_or_protocol(def)
) or ) or
(ds_rtti_table_used in def.defstates) then (ds_rtti_table_used in def.defstates)
) then
RTTIWriter.write_rtti(def,fullrtti); RTTIWriter.write_rtti(def,fullrtti);
end; end;
end; end;