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

* Prevent file descriptor leaks

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-12-17 15:22:21 +01:00
parent 09be1dfee1
commit 409abb8a43
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-process/src/processbody.inc
View File

@ -1069,7 +1069,10 @@ begin
H:=ResolveProcessHandle; H:=ResolveProcessHandle;
// Writeln(StdErr,GetProcessID,' : ',ProcessHandleType,' closing their handle ',IOType,': ',H); // Writeln(StdErr,GetProcessID,' : ',ProcessHandleType,' closing their handle ',IOType,': ',H);
if H<>THandle(INVALID_HANDLE_VALUE) then if H<>THandle(INVALID_HANDLE_VALUE) then
begin
FileClose(H); FileClose(H);
FTheirHandle:=THandle(INVALID_HANDLE_VALUE);
end;
end; end;
procedure TIODescriptor.PrepareHandles; procedure TIODescriptor.PrepareHandles;
@ -1133,6 +1136,7 @@ end;
destructor TIODescriptor.Destroy; destructor TIODescriptor.Destroy;
begin begin
FreeAndNil(FStream); FreeAndNil(FStream);
ResetHandles;
inherited Destroy; inherited Destroy;
end; end;