* Attribute definition should be before generic keyword

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

1 files changed, 3 insertions, 3 deletions

diff --git a/classattributes/compiler/pdecl.pas b/classattributes/compiler/pdecl.pas
index 72e6f50b9d..e9619e19a5 100644
--- a/classattributes/compiler/pdecl.pas
+++ b/classattributes/compiler/pdecl.pas
@@ -478,15 +478,15 @@ implementation
            generictypelist:=nil;
            generictokenbuf:=nil;
 
-           { fpc generic declaration? }
-           isgeneric:=not(m_delphi in current_settings.modeswitches) and try_to_consume(_GENERIC);
-
            { class attribute definitions? }
            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);
+
            typename:=pattern;
            orgtypename:=orgpattern;
            consume(_ID);