From 5dde3abcdca29230a8af59d2d7f9b08aee6e6fff Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Tue, 3 Aug 2010 19:43:53 +0000
Subject: [PATCH]  * fix hint parsing after UNIT token.

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

diff --git a/packages/fcl-passrc/src/pparser.pp b/packages/fcl-passrc/src/pparser.pp
index 80df05293b..da7c5bad2e 100644
--- a/packages/fcl-passrc/src/pparser.pp
+++ b/packages/fcl-passrc/src/pparser.pp
@@ -231,7 +231,7 @@ end;
 
 procedure TPasParser.ParseExc(const Msg: String);
 begin
-  raise EParserError.Create(Format(SParserErrorAtToken, [Msg, CurTokenName]),
+  raise EParserError.Create(Format(SParserErrorAtToken, [Msg, CurTokenName]) {$ifdef addlocation}+' ('+inttostr(scanner.currow)+' '+inttostr(scanner.curcolumn)+')'{$endif},
     Scanner.CurFilename, Scanner.CurRow, Scanner.CurColumn);
 end;
 
@@ -1182,6 +1182,7 @@ begin
       Module.PackageName := Engine.Package.Name;
       Engine.Package.Modules.Add(Module);
     end;
+    CheckHint(Module,True);
     ExpectToken(tkSemicolon);
     ExpectToken(tkInterface);
     ParseInterface;