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

fix, compiling dub proj, was always executed afterward

This commit is contained in:
Basile Burg 2015-09-17 21:47:43 +02:00
parent 782f5ff59c
commit 5ce45a6486
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ce_dubproject.pas
View File

@ -191,10 +191,11 @@ begin
str := TStringList.Create; str := TStringList.Create;
try try
str.Add('dub' + exeExt); str.Add('dub' + exeExt);
str.Add('build');
if fBuiltTypeIx <> 0 then if fBuiltTypeIx <> 0 then
str.Add('build=' + fBuildTypes.Strings[fBuiltTypeIx]); str.Add('--build=' + fBuildTypes.Strings[fBuiltTypeIx]);
if fConfigIx <> 0 then if fConfigIx <> 0 then
str.Add('config=' + fConfigs.Strings[fConfigIx]); str.Add('--config=' + fConfigs.Strings[fConfigIx]);
result := str.Text; result := str.Text;
finally finally
str.Free; str.Free;
@ -299,6 +300,7 @@ begin
dubproc.Options := dubproc.Options + [poStderrToOutPut, poUsePipes]; dubproc.Options := dubproc.Options + [poStderrToOutPut, poUsePipes];
dubproc.CurrentDirectory := extractFilePath(fFilename); dubproc.CurrentDirectory := extractFilePath(fFilename);
dubproc.ShowWindow := swoHIDE; dubproc.ShowWindow := swoHIDE;
dubproc.Parameters.Add('build');
if fBuiltTypeIx <> 0 then if fBuiltTypeIx <> 0 then
dubproc.Parameters.Add('--build=' + fBuildTypes.Strings[fBuiltTypeIx]); dubproc.Parameters.Add('--build=' + fBuildTypes.Strings[fBuiltTypeIx]);
if fConfigIx <> 0 then if fConfigIx <> 0 then