From 32d0c4f93c04ffa1efa7c1353f6cc4eb956da930 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 11 Oct 2013 13:13:13 +0000
Subject: [PATCH] codetools: vr hint modifiers only in modes objfpc, delphi and
 delphiunicode

git-svn-id: trunk@43205 -
---
 components/codetools/pascalparsertool.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index 58b3e0d165..686f76c87c 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -3382,6 +3382,7 @@ var
   NeedUndo: boolean;
   CanHaveString: Boolean;
 begin
+  if not (Scanner.CompilerMode in [cmOBJFPC,cmDELPHI,cmDELPHIUNICODE]) then exit;
   if CurPos.Flag=cafSemicolon then begin
     ReadNextAtom;
     NeedUndo:=true;