* 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, 5 insertions, 4 deletions

diff --git a/classattributes/compiler/pdecl.pas b/classattributes/compiler/pdecl.pas
index 7696bb068e..fc0067611e 100644
--- a/classattributes/compiler/pdecl.pas
+++ b/classattributes/compiler/pdecl.pas
@@ -498,10 +498,11 @@ implementation
            generictokenbuf:=nil;
 
            { class attribute definitions? }
-           while token=_LECKKLAMMER do
-             begin
-               parse_rttiattributes(current_rtticlassattributesdef);
-             end;
+           if m_prefixed_attributes in current_settings.modeswitches then
+             while token=_LECKKLAMMER do
+               begin
+                 parse_rttiattributes(current_rtticlassattributesdef);
+               end;
 
            { fpc generic declaration? }
            isgeneric:=not(m_delphi in current_settings.modeswitches) and try_to_consume(_GENERIC);