* Apply RTTI directive status to symbol

compiler/pdecobj.pas

@@ -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;

compiler/ptype.pas

@@ -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);