* Support for file type parsing (part 2)

git-svn-id: trunk@3853 -

fcl/passrc/pparser.pp

@@ -546,10 +546,7 @@ procedure TPasParser.ParseFileType(Element: TPasFileType);
 begin
   NextToken;
   If CurToken=tkOf then
-    begin
-    NextToken;
     Element.ElType := ParseType(nil);
-    end;
 end;
 
 function TPasParser.ParseExpression: String;