paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 14:36:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed GatherLFM

Browse Source
This commit is contained in:
mattias 2025-05-26 11:50:12 +02:00
parent 8576232676
commit 310f3efc95
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/stdcodetools.pas
View File

@ -2882,7 +2882,7 @@ var
case Parser.Token of
#0: break;
toSymbol:
begin
if Parser.TokenSymbolIs(Identifier) then begin
p:=Parser.SourcePos+1-Length(Identifier);
Insert(p,IdentifierPositions,length(IdentifierPositions));
end;
@ -2894,7 +2894,6 @@ var
finally
MemStream.Free;
end;
Parser.NextToken;
end;
end;
until false;