* Apply RTTI directive status to symbol

compiler/pdecobj.pas

@@ -1668,6 +1668,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;

compiler/ptype.pas

@@ -1051,7 +1051,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);