paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:49:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed inherited destroy; call of tprocess

Browse Source
This commit is contained in:
florian 2003-10-30 20:34:47 +00:00
parent 5f71a74d25
commit b19a69f0aa
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fcl/inc/process.pp
View File

@ -249,7 +249,7 @@ begin
If assigned (FThreadAttributes) then Dispose (FThreadAttributes); If assigned (FThreadAttributes) then Dispose (FThreadAttributes);
FEnvironment.Free; FEnvironment.Free;
FreeStreams; FreeStreams;
Inherited; Inherited Destroy;
end; end;
Procedure TProcess.FreeStreams; Procedure TProcess.FreeStreams;
@ -919,7 +919,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.17 2003-09-20 12:38:29 marco Revision 1.18 2003-10-30 20:34:47 florian
* fixed inherited destroy; call of tprocess
Revision 1.17 2003/09/20 12:38:29 marco
* FCL now compiles for FreeBSD with new 1.1. Now Linux. * FCL now compiles for FreeBSD with new 1.1. Now Linux.
Revision 1.16 2003/08/12 13:49:42 michael Revision 1.16 2003/08/12 13:49:42 michael