From 409abb8a43407d16e9cd25d3e9dba5a6aacfda4c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Sun, 17 Dec 2023 15:22:21 +0100
Subject: [PATCH] * Prevent file descriptor leaks

---
 packages/fcl-process/src/processbody.inc | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/packages/fcl-process/src/processbody.inc b/packages/fcl-process/src/processbody.inc
index 374740bd0c..9641de0248 100644
--- a/packages/fcl-process/src/processbody.inc
+++ b/packages/fcl-process/src/processbody.inc
@@ -1069,7 +1069,10 @@ begin
   H:=ResolveProcessHandle;
   // Writeln(StdErr,GetProcessID,' : ',ProcessHandleType,' closing their handle ',IOType,': ',H);
   if H<>THandle(INVALID_HANDLE_VALUE) then
+    begin
     FileClose(H);
+    FTheirHandle:=THandle(INVALID_HANDLE_VALUE);
+    end;
 end;
 
 procedure TIODescriptor.PrepareHandles;
@@ -1133,6 +1136,7 @@ end;
 destructor TIODescriptor.Destroy;
 begin
   FreeAndNil(FStream);
+  ResetHandles;
   inherited Destroy;
 end;