fix, doesnt call dmd if no source

This commit is contained in:
Basile Burg 2014-12-01 06:13:38 +01:00
parent 43f59512b8
commit ea823e883b
1 changed files with 3 additions and 1 deletions

View File

@ -506,6 +506,8 @@ begin
subjLmFromString(TCELogMessageSubject(fLogMessager), subjLmFromString(TCELogMessageSubject(fLogMessager),
'project warning: the pre-compilation process has not been properly executed', Self, amcProj, amkWarn); 'project warning: the pre-compilation process has not been properly executed', Self, amcProj, amkWarn);
// //
if Sources.Count = 0 then exit;
//
prjname := shortenPath(filename, 25); prjname := shortenPath(filename, 25);
compilproc := TProcess.Create(nil); compilproc := TProcess.Create(nil);
olddir := ''; olddir := '';
@ -523,7 +525,7 @@ begin
compilproc.Options := compilproc.Options + [poStderrToOutPut, poUsePipes]; compilproc.Options := compilproc.Options + [poStderrToOutPut, poUsePipes];
compilproc.ShowWindow := swoHIDE; compilproc.ShowWindow := swoHIDE;
getOpts(compilproc.Parameters); getOpts(compilproc.Parameters);
compilproc.Execute; compilproc.Execute;
while compilProc.Running do while compilProc.Running do
compProcOutput(compilproc); compProcOutput(compilproc);
if compilproc.ExitStatus = 0 then begin if compilproc.ExitStatus = 0 then begin