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

fix #239 - Runnables fail to look when autoDetectLibraries option is not checked

This commit is contained in:
Basile Burg 2018-02-11 02:18:54 +01:00
parent c4553509fb
commit 9f982830d8
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/ce_main.pas
View File

@ -2847,6 +2847,7 @@ var
fname: string; fname: string;
dmdproc: TCEProcess; dmdproc: TCEProcess;
lst: TStringList = nil; lst: TStringList = nil;
srt: TStringList;
firstLineFlags: string = ''; firstLineFlags: string = '';
asObj: boolean = false; asObj: boolean = false;
hasMain: THasMain; hasMain: THasMain;
@ -2953,8 +2954,14 @@ begin
LibMan.getLibsForSource(fDoc.Lines, dmdproc.Parameters, dmdproc.Parameters) LibMan.getLibsForSource(fDoc.Lines, dmdproc.Parameters, dmdproc.Parameters)
else else
begin begin
LibMan.getLibFiles(nil, dmdproc.Parameters); srt := TStringList.Create;
LibMan.getLibSourcePath(nil, dmdproc.Parameters); srt.Sorted:=true;
//NOTE: when not sorted linking can fail. This is a recent regression (~2.078)
//when detectLibraries is true, sorting is automatic *.a, -Ipath, *.a, -Ipath etc
srt.Duplicates := TDuplicates.dupIgnore;
LibMan.getLibFiles(nil, srt);
LibMan.getLibSourcePath(nil, srt);
dmdproc.Parameters.AddStrings(srt);
end; end;
deleteDups(dmdproc.Parameters); deleteDups(dmdproc.Parameters);
dmdproc.Execute; dmdproc.Execute;