From 72f53aacd83b3c8caee8b270791a9e02f0c24568 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sun, 8 Aug 2010 12:44:11 +0000
Subject: [PATCH]  * Fix some minor sideeffect introduced by r15729. File
 without "of integer" must remain working.

git-svn-id: trunk@15743 -
---
 packages/fcl-passrc/src/pparser.pp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-passrc/src/pparser.pp b/packages/fcl-passrc/src/pparser.pp
index 3cc08b18a9..35db622569 100644
--- a/packages/fcl-passrc/src/pparser.pp
+++ b/packages/fcl-passrc/src/pparser.pp
@@ -651,7 +651,9 @@ procedure TPasParser.ParseFileType(Element: TPasFileType);
 begin
   NextToken;
   If CurToken=tkOf then
-    Element.ElType := ParseType(nil);
+    Element.ElType := ParseType(nil)
+  else 
+   ungettoken;
 end;
 
 function TPasParser.isEndOfExp:Boolean;