From 9c1336839304d3bc19bd3e680ea1f4209b5781db Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Mon, 12 Jun 2006 20:08:12 +0000
Subject: [PATCH] * Support for file type parsing (part 2)

git-svn-id: trunk@3853 -
---
 fcl/passrc/pparser.pp | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/fcl/passrc/pparser.pp b/fcl/passrc/pparser.pp
index bbde55fb16..55ed466cdf 100644
--- a/fcl/passrc/pparser.pp
+++ b/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;