fix runnable compilation messages not shown anymore

This commit is contained in:
Basile Burg 2014-11-11 06:11:03 +01:00
parent 12c6a2cf8d
commit 48c28bffcb
1 changed files with 4 additions and 6 deletions

View File

@ -1222,7 +1222,10 @@ begin
try try
processOutputToStrings(proc, lst); processOutputToStrings(proc, lst);
if proc = fRunProc then for str in lst do if proc = fRunProc then for str in lst do
subjLmFromString(fLogMessager, str, fDoc, amcEdit, amkBub); subjLmFromString(fLogMessager, str, fDoc, amcEdit, amkBub)
else if proc.Executable = DCompiler then
for str in lst do
subjLmFromString(fLogMessager, str, fDoc, amcEdit, amkAuto);
finally finally
lst.Free; lst.Free;
end; end;
@ -1245,11 +1248,6 @@ begin
subjLmFromString(fLogMessager, str, fDoc, amcEdit, amkBub); subjLmFromString(fLogMessager, str, fDoc, amcEdit, amkBub);
FreeRunnableProc; FreeRunnableProc;
// runnable compiler // runnable compiler
end else
if proc.Executable = DCompiler then
begin
for str in lst do
subjLmFromString(fLogMessager, str, fDoc, amcEdit, amkAuto);
end; end;
finally finally
lst.Free; lst.Free;