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

* Apply RTTI directive status to symbol

Browse Source
This commit is contained in:
Ryan Joseph 2023-05-30 15:36:03 +02:00 committed by Michaël Van Canneyt
parent 5402eee8d8
commit 48f422020a
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/pdecobj.pas
View File

@ -1657,6 +1657,9 @@ implementation
end
else
olddef:=nil;
{ apply $RTTI directive to current object }
current_structdef.apply_rtti_directive(current_module.rtti_directive);
{ parse and insert object members }
parse_object_members;

4
compiler/ptype.pas
View File

@ -1052,7 +1052,9 @@ implementation
{ in non-Delphi modes we need a strict private symbol without type
count and type parameters in the name to simply resolving }
maybe_insert_generic_rename_symbol(n,genericlist);
{ apply $RTTI directive to current object }
current_structdef.apply_rtti_directive(current_module.rtti_directive);
if m_advanced_records in current_settings.modeswitches then
begin
parse_record_members(recsym);