Quellcode durchsuchen

* Attribute definition should be before generic keyword

git-svn-id: branches/joost/classattributes@22970 -
joost vor 13 Jahren
Ursprung
Commit
5585d1bc15
1 geänderte Dateien mit 3 neuen und 3 gelöschten Zeilen
  1. 3 3
      compiler/pdecl.pas

+ 3 - 3
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);