paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 16:09:16 +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

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

2
compiler/ptype.pas
View File

@ -1052,6 +1052,8 @@ implementation
{ in non-Delphi modes we need a strict private symbol without type { in non-Delphi modes we need a strict private symbol without type
count and type parameters in the name to simply resolving } count and type parameters in the name to simply resolving }
maybe_insert_generic_rename_symbol(n,genericlist); 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 if m_advanced_records in current_settings.modeswitches then
begin begin