From d3130df9009052798c6f3556e59452717fa8839d Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Wed, 20 Feb 2019 15:45:45 +0000
Subject: [PATCH] Debugger: PseudoTerminal, do not close the handle while app
 is still debugged.

git-svn-id: trunk@60469 -
---
 debugger/pseudoterminaldlg.pp | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/debugger/pseudoterminaldlg.pp b/debugger/pseudoterminaldlg.pp
index fab87676c2..b829c6b071 100644
--- a/debugger/pseudoterminaldlg.pp
+++ b/debugger/pseudoterminaldlg.pp
@@ -199,8 +199,8 @@ procedure TPseudoConsoleDlg.DoClose(var CloseAction: TCloseAction);
 begin
 {$IFDEF DBG_ENABLE_TERMINAL}
   if integer(ttyHandle) >= 0 then begin
-    FileClose(ttyHandle);
-    ttyHandle := handleUnopened
+    //(ttyHandle);
+    // := handleUnopened
   end;
 {$ENDIF DBG_ENABLE_TERMINAL}
   inherited DoClose(CloseAction);
@@ -320,10 +320,11 @@ begin
 (* handle it immediately. MarkMLl (so you know who to kick).                    *)
 
     if fpioctl(ttyHandle, TIOCSWINSZ, @winSize) < 0 then begin
-      fileclose(ttyHandle);
+      //fileclose(ttyHandle);
       DebugLn(DBG_WARNINGS, ['TPseudoConsoleDlg.AddOutput Write failed, closed handle']);
-      ttyHandle := THandle(-1)      (* Attempted ioctl() failed                 *)
-    end;
+      //ttyHandle := THandle(-1)      (* Attempted ioctl() failed                 *)
+    end
+    else
     if integer(ttyHandle) >= 0 then begin (* Handle not closed by error         *)
 {$IFDEF SEND_EXPLICIT_SIGNAL }
 {$WARNING TPseudoConsoleDlg.consoleSizeChanged: Explicit signal untested }