forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

leak

This commit is contained in:
Basile Burg 2018-02-11 02:59:26 +01:00
parent d6732c15e4
commit 7b01053b89
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/ce_main.pas
View File

@ -2955,13 +2955,17 @@ begin
else else
begin begin
srt := TStringList.Create; srt := TStringList.Create;
srt.Sorted:=true; try
//NOTE: when not sorted linking can fail. This is a recent regression (~2.078) srt.Sorted:=true;
//when detectLibraries is true, sorting is automatic *.a, -Ipath, *.a, -Ipath etc //NOTE: when not sorted linking can fail. This is a recent regression (~2.078)
srt.Duplicates := TDuplicates.dupIgnore; //when detectLibraries is true, sorting is automatic *.a, -Ipath, *.a, -Ipath etc
LibMan.getLibFiles(nil, srt); srt.Duplicates := TDuplicates.dupIgnore;
LibMan.getLibSourcePath(nil, srt); LibMan.getLibFiles(nil, srt);
dmdproc.Parameters.AddStrings(srt); LibMan.getLibSourcePath(nil, srt);
dmdproc.Parameters.AddStrings(srt);
finally
srt.Free;
end;
end; end;
deleteDups(dmdproc.Parameters); deleteDups(dmdproc.Parameters);
dmdproc.Execute; dmdproc.Execute;