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;