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

fix #161 - dub projects, compile and run... and run... args are not passed

This commit is contained in:
Basile Burg 2017-06-15 01:50:16 +02:00
parent 4a0e037c51
commit b8e6fa1874
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/ce_dubproject.pas
View File

@ -619,6 +619,7 @@ procedure TCEDubProject.compileOrRun(run: boolean; const runArgs: string = '');
var var
olddir: string; olddir: string;
prjname: string; prjname: string;
rargs: TStringList;
begin begin
if fDubProc.isNotNil and fDubProc.Active then if fDubProc.isNotNil and fDubProc.Active then
begin begin
@ -666,7 +667,16 @@ begin
fDubProc.Parameters.Add('--compiler=' + DubCompilerFilename); fDubProc.Parameters.Add('--compiler=' + DubCompilerFilename);
dubBuildOptions.getOpts(fDubProc.Parameters); dubBuildOptions.getOpts(fDubProc.Parameters);
if run and runArgs.isNotEmpty then if run and runArgs.isNotEmpty then
fDubProc.Parameters.Add('--' + runArgs); begin
fDubProc.Parameters.Add('--');
rargs := TStringList.Create;
try
CommandToList(runArgs, rargs);
fDubProc.Parameters.AddStrings(rargs);
finally
rargs.Free;
end;
end;
fDubProc.Execute; fDubProc.Execute;
finally finally
SetCurrentDirUTF8(olddir); SetCurrentDirUTF8(olddir);
@ -686,7 +696,7 @@ end;
procedure TCEDubProject.run(const runArgs: string = ''); procedure TCEDubProject.run(const runArgs: string = '');
begin begin
compileOrRun(true); compileOrRun(true, runArgs);
end; end;
function TCEDubProject.targetUpToDate: boolean; function TCEDubProject.targetUpToDate: boolean;