mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-21 22:39:30 +02:00
MG: fixed zombie compilers
git-svn-id: trunk@598 -
This commit is contained in:
parent
81a49866f6
commit
a29a5959a2
@ -1233,6 +1233,7 @@ begin
|
||||
end;
|
||||
OutputLine:=copy(Buf,LineStart,OutLen-LineStart+1);
|
||||
until OutLen=0;
|
||||
TheProcess.WaitOnExit;
|
||||
finally
|
||||
TheProcess.Free;
|
||||
end;
|
||||
@ -1274,6 +1275,7 @@ begin
|
||||
end;
|
||||
inc(i);
|
||||
end;
|
||||
TheProcess.WaitOnExit;
|
||||
finally
|
||||
TheProcess.Free;
|
||||
end;
|
||||
@ -1303,6 +1305,7 @@ begin
|
||||
end;
|
||||
inc(i);
|
||||
end;
|
||||
TheProcess.WaitOnExit;
|
||||
finally
|
||||
TheProcess.Free;
|
||||
end;
|
||||
|
@ -63,7 +63,7 @@ interface
|
||||
|
||||
{$I codetools.inc}
|
||||
|
||||
{ $DEFINE CTDEBUG}
|
||||
{$DEFINE CTDEBUG}
|
||||
|
||||
uses
|
||||
{$IFDEF MEM_CHECK}
|
||||
|
@ -247,6 +247,7 @@ begin
|
||||
end;
|
||||
OutputLine:=copy(Buf,LineStart,Count-LineStart+1);
|
||||
until Count=0;
|
||||
TheProcess.WaitOnExit;
|
||||
finally
|
||||
TheProcess.Free;
|
||||
end;
|
||||
@ -355,6 +356,9 @@ end.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.27 2002/01/15 08:49:56 lazarus
|
||||
MG: fixed zombie compilers
|
||||
|
||||
Revision 1.26 2002/01/13 12:46:17 lazarus
|
||||
MG: fixed linker options, compiler options dialog
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user