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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/u_makeproject.pas
View File

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