paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 19:52:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: branches/fixes_2_0@64689 -
This commit is contained in:
mattias 2021-02-28 09:00:03 +00:00
parent 6783976874
commit 6b495d9d5f
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/codetools/pascalparsertool.pas
View File

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

BIN
ide/lazarus.res
View File

Binary file not shown.