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

fix #33, piping a pre or post build process leads to AV

This commit is contained in:
Basile Burg 2015-08-28 17:57:42 +02:00
parent ebebf27243
commit abdddf29c0
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/ce_nativeproject.pas
View File

@ -744,24 +744,26 @@ end;
procedure TCENativeProject.runProcOutput(sender: TObject);
var
proc: TCEProcess;
lst: TStringList;
str: string;
msgs: ICEMessagesDisplay;
begin
proc := TCEProcess(sender);
lst := TStringList.Create;
msgs := getMessageDisplay;
try
proc.getFullLines(lst);
if (sender is TCEProcess) then
(sender as TCEProcess).getFullLines(lst)
else
processOutputToStrings(TProcess(sender), lst);
for str in lst do
msgs.message(str, Self, amcProj, amkBub);
finally
lst.Free;
end;
//
if not proc.Active then
getprocInputHandler.removeProcess(proc);
if not TProcess(sender).Active then
getprocInputHandler.removeProcess(TProcess(sender));
end;
procedure TCENativeProject.compProcOutput(proc: TProcess);