mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-06 21:06:39 +02:00
ide: fix project compilation error after recent WaitOnExit change in the fpc 2.3.1
git-svn-id: trunk@19037 -
This commit is contained in:
parent
a8c551af68
commit
6efd1ca34f
@ -168,10 +168,13 @@ begin
|
|||||||
TheProcess.Execute;
|
TheProcess.Execute;
|
||||||
end;
|
end;
|
||||||
finally
|
finally
|
||||||
TheProcess.WaitOnExit;
|
if TheProcess.Running then
|
||||||
if not (TheProcess.ExitStatus in [0,1]) then begin
|
begin
|
||||||
WriteError(Format(listCompilerInternalError,[TheProcess.ExitStatus]));
|
TheProcess.WaitOnExit;
|
||||||
Result:=mrCancel;
|
if not (TheProcess.ExitStatus in [0,1]) then begin
|
||||||
|
WriteError(Format(listCompilerInternalError,[TheProcess.ExitStatus]));
|
||||||
|
Result:=mrCancel;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
except
|
except
|
||||||
|
Loading…
Reference in New Issue
Block a user