mirror of https://gitlab.com/basile.b/dexed.git
fix, compiling dub proj, was always executed afterward
This commit is contained in:
parent
782f5ff59c
commit
5ce45a6486
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Reference in New Issue