paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 19:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Reset must force close

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-12-17 15:34:21 +01:00
parent 9546595c15
commit 60518dc113
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1100,7 +1100,7 @@ procedure TIODescriptor.ResetHandles;
begin begin
CloseOurHandle; CloseOurHandle;
CloseTheirHandle; CloseTheirHandle(True);
FreeAndNil(FStream); FreeAndNil(FStream);
FHandleValid:=False; FHandleValid:=False;
end; end;