paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-14 16:19:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: parsing config files from fpc outout: keep only last state

Browse Source
This commit is contained in:
mattias 2024-03-11 16:38:16 +01:00
parent 0b7f1f3c0c
commit a2a002d2f0
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/codetools/definetemplates.pas
View File

@ -1788,7 +1788,9 @@ function ParseFPCVerbose(List: TStrings; const WorkDir: string; out
// skip keywords
Inc(CurPos, 19);
Filename:=ExpFile(GetForcedPathDelims(copy(Line,CurPos,length(Line))));
ConfigFiles.Add('-'+Filename);
i:=ConfigFiles.IndexOf('-'+Filename);
if i<0 then
ConfigFiles.Add('-'+Filename);
end else if IsUpLine(CurPos,'COMPILER: ') then begin
// skip keywords
Inc(CurPos, 10);
@ -1840,9 +1842,12 @@ function ParseFPCVerbose(List: TStrings; const WorkDir: string; out
// skip keywords
Inc(CurPos, 26);
Filename:=ExpFile(GetForcedPathDelims(copy(Line,CurPos,length(Line))));
if (ConfigFiles.Count>0)
and (ConfigFiles[ConfigFiles.Count-1]='-'+Filename) then
ConfigFiles.Delete(ConfigFiles.Count-1);
i:=ConfigFiles.IndexOf('-'+Filename);
if i>=0 then
ConfigFiles.Delete(i);
i:=ConfigFiles.IndexOf('+'+Filename);
if i>=0 then
ConfigFiles.Delete(i);
{$IFDEF VerboseFPCSrcScan}
DebugLn('Used options file: "',Filename,'"');
{$ENDIF}