From 54cf569474213da575eb5f357e8477833f9a40a9 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 11 Oct 2001 11:39:35 +0000
Subject: [PATCH]  * better NoSwitch check for unix

---
 ide/fpdebug.pas | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/ide/fpdebug.pas b/ide/fpdebug.pas
index 0536f3de77..3524fc282a 100644
--- a/ide/fpdebug.pas
+++ b/ide/fpdebug.pas
@@ -691,7 +691,10 @@ begin
   if DebuggeeTTY <> '' then
     begin
       Command('tty '+DebuggeeTTY);
-      NoSwitch:= true;
+      if DebuggeeTTY<>TTYName(inout) then
+        NoSwitch:= true
+      else
+        NoSwitch:=false;
     end
   else
     begin
@@ -1138,6 +1141,7 @@ end;
 
 
 procedure TDebugController.DoUserScreen;
+
 begin
   Inc(RunCount);
   if NoSwitch then
@@ -3896,7 +3900,10 @@ end.
 
 {
   $Log$
-  Revision 1.4  2001-09-12 09:48:38  pierre
+  Revision 1.5  2001-10-11 11:39:35  pierre
+   * better NoSwitch check for unix
+
+  Revision 1.4  2001/09/12 09:48:38  pierre
    + SetDirectories method added to help for disassembly window
 
   Revision 1.3  2001/08/07 22:58:10  pierre