* Allow rtti-attributes only when the modeswitch prefixedattributes is setjoost

 * Set the prefixedattributes by default in mode delphi

git-svn-id: http://svn.freepascal.org/svn/fpc/branches/joost@25838 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 4 insertions, 1 deletions

diff --git a/classattributes/compiler/pdecobj.pas b/classattributes/compiler/pdecobj.pas
index 2268a3e5e0..f3be881722 100644
--- a/classattributes/compiler/pdecobj.pas
+++ b/classattributes/compiler/pdecobj.pas
@@ -1227,7 +1227,10 @@ implementation
               end;
             _LECKKLAMMER:
               begin
-                parse_rttiattributes(current_rttiattributesdef);
+                if m_prefixed_attributes in current_settings.modeswitches then
+                  parse_rttiattributes(current_rttiattributesdef)
+                else
+                  consume(_ID);
               end;
             _END :
               begin