diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index 027043f622..95f83f80e1 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -3277,11 +3277,10 @@ begin
   if CurNode.Parent.Desc in AllCodeSections then begin
     if CurPos.Flag=cafEqual then
       ReadConstExpr; // read constant
+    // optional: hint modifier
+    ReadHintModifiers;
   end;
 
-  // optional: hint modifier
-  ReadHintModifiers;
-
   // semicolon and postfix modifiers
   if CurPos.Flag=cafSemicolon then begin
     // read ;