paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-08 05:27:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

* use gdb/mi command for setting tty

Browse Source 
git-svn-id: trunk@29734 -
This commit is contained in:
nickysn 2015-02-16 22:11:25 +00:00
parent 72315c9bee
commit dc54903e01
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/fpdebug.pas
View File

@ -830,6 +830,12 @@ end;
procedure TDebugController.Run;
const
{$ifdef GDBMI}
SetTTYCommand = '-inferior-tty-set';
{$else GDBMI}
SetTTYCommand = 'tty';
{$endif GDBMI}
{$ifdef Unix}
var
Debuggeefile : text;
@ -941,12 +947,12 @@ begin
ResetOK:=IOResult=0;
If ResetOK and (IsATTY(textrec(Debuggeefile).handle)<>-1) then
begin
Command('tty '+DebuggeeTTY);
Command(SetTTYCommand+' '+DebuggeeTTY);
TTYUsed:=true;
end
else
begin
Command('tty ');
Command(SetTTYCommand+' ');
TTYUsed:=false;
end;
if ResetOK then
@ -959,7 +965,7 @@ begin
else
begin
if TTYName(input)<>'' then
Command('tty '+TTYName(input));
Command(SetTTYCommand+' '+TTYName(input));
NoSwitch := false;
end;
{$endif Unix}