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

codetools: fixed InsertAllNewUnitsToMainUsesSection, issue #40522

Browse Source 
(cherry picked from commit 00e6d8fbd8)
This commit is contained in:
mattias 2023-09-25 22:13:53 +02:00 committed by Maxim Ganetsky
parent d76ba3ddc8
commit 25013f7e7c
1 changed files with 1 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/codetools/codecompletiontool.pas
View File

@ -8281,19 +8281,9 @@ begin
repeat repeat
ReadNextAtom; // read name ReadNextAtom; // read name
if AtomIsChar(';') then break; if AtomIsChar(';') then break;
CurUnitName:=ExtractUsedUnitNameAtCursor(); CurUnitName:=ExtractUsedUnitNameAtCursor(); // moves cursor behind used unit and InFilename
RemoveNewMainUsesSectionUnit(PChar(CurUnitName)); RemoveNewMainUsesSectionUnit(PChar(CurUnitName));
if fNewMainUsesSectionUnits.Count=0 then exit; if fNewMainUsesSectionUnits.Count=0 then exit;
ReadNextAtom;
while AtomIsChar('.') do
begin
ReadNextAtom;
ReadNextAtom;
end;
if UpAtomIs('IN') then begin
ReadNextAtom;
ReadNextAtom;
end;
if AtomIsChar(';') then break; if AtomIsChar(';') then break;
if not AtomIsChar(',') then break; if not AtomIsChar(',') then break;
until (CurPos.StartPos>SrcLen); until (CurPos.StartPos>SrcLen);