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

* better NoSwitch check for unix

Browse Source
This commit is contained in:
pierre 2001-10-11 11:39:35 +00:00
parent f85e456f3c
commit 54cf569474
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/fpdebug.pas
View File

@ -691,7 +691,10 @@ begin
if DebuggeeTTY <> '' then if DebuggeeTTY <> '' then
begin begin
Command('tty '+DebuggeeTTY); Command('tty '+DebuggeeTTY);
NoSwitch:= true; if DebuggeeTTY<>TTYName(inout) then
NoSwitch:= true
else
NoSwitch:=false;
end end
else else
begin begin
@ -1138,6 +1141,7 @@ end;
procedure TDebugController.DoUserScreen; procedure TDebugController.DoUserScreen;
begin begin
Inc(RunCount); Inc(RunCount);
if NoSwitch then if NoSwitch then
@ -3896,7 +3900,10 @@ end.
{ {
$Log$ $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 + SetDirectories method added to help for disassembly window
Revision 1.3 2001/08/07 22:58:10 pierre Revision 1.3 2001/08/07 22:58:10 pierre