missing leading message on make project compiling

This commit is contained in:
Basile Burg 2022-05-14 12:13:17 +02:00
parent 58b04d978c
commit 311d6a7d1a
1 changed files with 4 additions and 0 deletions

View File

@ -379,6 +379,8 @@ begin
end;
procedure TMakeProject.compile;
var
p: string;
begin
if fMakeProc.isAssigned and fMakeProc.Active then
begin
@ -391,6 +393,7 @@ begin
fMsgs.clearByData(fAsProjectItf);
subjProjCompiling(fProjectSubject, fAsProjectItf);
p := shortenPath(fFilename);
fMakeProc := TDexedProcess.create(nil);
fMakeProc.executable := 'make';
fMakeProc.Parameters.AddStrings([ '-f', fFilename]);
@ -402,6 +405,7 @@ begin
fMakeProc.XTermProgram:=consoleProgram;
fMakeProc.OnTerminate:= @makeProcTerminated;
fMakeProc.OnReadData:= @makeProcOutput;
fMsgs.message('compiling ' + p, fAsProjectItf, amcProj, amkInf);
fMakeProc.execute;
end;