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

dixes #117 - Build duration not always displayed

This commit is contained in:
Basile Burg 2017-02-02 14:12:54 +01:00
parent 7025ca3b7d
commit b9d23ccbcb
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/ce_main.pas
View File

@ -352,6 +352,7 @@ type
fUpdateCount: NativeInt;
fProject: ICECommonProject;
fFreeProj: ICECommonProject;
fProjBeforeGroup: ICECommonProject;
fDubProject: TCEDubProject;
fNativeProject: TCENativeProject;
fProjMru: TCEMRUProjectList;
@ -2069,6 +2070,7 @@ procedure TCEMainForm.projCompiled(project: ICECommonProject; success: boolean);
var
runArgs: string = '';
runprev: boolean = true;
groupok: boolean = true;
i: integer;
begin
fProjActionsLock := false;
@ -2094,22 +2096,30 @@ begin
fRunProjAfterCompile := false;
fRunProjAfterCompArg := false;
end
else begin
else
begin
fGroupCompilationCnt += 1;
if (fGroupCompilationCnt = fProjectGroup.projectCount) then
begin
for i:= 0 to fProjectGroup.projectCount-1 do
if not fProjectGroup.getProject(i).compiled then
begin
fMsgs.message('error, the project group is not fully compiled', nil, amcAll, amkErr);
exit;
end;
fMsgs.message('the project group is successfully compiled', nil, amcAll, amkInf);
begin
groupok := false;
break;
end;
if not groupok then
fMsgs.message('error, the project group is not fully compiled', nil, amcAll, amkErr)
else
fMsgs.message('the project group is successfully compiled', nil, amcAll, amkInf);
if fAppliOpts.showBuildDuration then
begin
fCompStart := Time - fCompStart;
fMsgs.message('Group build duration: ' + TimeToStr(fCompStart), nil, amcAll, amkInf);
end;
if assigned(fProjBeforeGroup) then
fProjBeforeGroup.activate;
fProjBeforeGroup := nil;
fIsCompilingGroup := false;
end;
end;
end;
@ -3542,6 +3552,7 @@ begin
exit;
if fProjectGroup.projectCount = 0 then
exit;
fProjBeforeGroup := fProject;
fGroupCompilationCnt := 0;
fIsCompilingGroup := true;
fMsgs.message('start compiling a project group...', nil, amcAll, amkInf);