mirror of https://gitlab.com/basile.b/dexed.git
missing leading message on make project compiling
This commit is contained in:
parent
58b04d978c
commit
311d6a7d1a
|
@ -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;
|
||||
|
||||
|
|
Loading…
Reference in New Issue