From b1dfaeda44328d2959bc38a8e37a5b9f395365b0 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 12 Oct 2013 09:05:35 +0000
Subject: [PATCH] codetools: parsing type hint modifiers

git-svn-id: trunk@43215 -
---
 components/codetools/pascalparsertool.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index 7b765120ea..dde64ce2c5 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -3382,7 +3382,7 @@ var
   NeedUndo: boolean;
   CanHaveString: Boolean;
 begin
-  if not (Scanner.CompilerMode in [cmOBJFPC,cmDELPHI,cmDELPHIUNICODE]) then exit;
+  if not (Scanner.CompilerMode in [cmFPC,cmOBJFPC,cmDELPHI,cmDELPHIUNICODE]) then exit;
   if CurPos.Flag=cafSemicolon then begin
     ReadNextAtom;
     NeedUndo:=true;
@@ -4679,6 +4679,7 @@ begin
         SaveRaiseException(ctsInvalidType);
     end;
   end;
+  ReadHintModifiers;
   EndChildNode;
   Result:=true;
 end;