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

View File

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