codetools: fixed parsing var c:word = 1 deprecated, issue #38554

git-svn-id: branches/fixes_2_0@64689 -

components/codetools/pascalparsertool.pas

@@ -3500,10 +3500,6 @@ begin
     end;
   end;
 
-  // optional: hint modifier
-  if CurPos.Flag=cafWord then
-    ReadHintModifiers(false);
-
   if (ParentNode.Desc=ctnVarSection) then begin
     // optional: initial value
     if CurPos.Flag=cafEqual then
@@ -3512,6 +3508,10 @@ begin
     end;
   end;
 
+  // optional: hint modifier
+  if CurPos.Flag=cafWord then
+    ReadHintModifiers(false);
+
   HasSemicolon:=false;
   if CurPos.Flag=cafSemicolon then begin
     // read ;
@@ -5461,7 +5461,7 @@ end;
 
 function TPascalParserTool.GetExtraction(InUpperCase: boolean): string;
 begin
-  SetLength(Result,ExtractMemStream.Position);
+  SetLength(Result{%H-},ExtractMemStream.Position);
   ExtractMemStream.Position:=0;
   if Result<>'' then
     ExtractMemStream.Read(Result[1],length(Result));