paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 01:19:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

DBG: added configurable tty for console app

Browse Source 
git-svn-id: trunk@29002 -
This commit is contained in:
martin 2011-01-13 19:32:42 +00:00
parent 19eb382b75
commit b1e8f8b9e9
1 changed files with 28 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
debugger/gdbmidebugger.pp
View File

@ -45,7 +45,7 @@ uses
Windows,
{$ENDIF}
{$IFDEF UNIX}
Unix,BaseUnix,
Unix,BaseUnix,termio,
{$ENDIF}
BaseDebugManager;
@ -115,6 +115,9 @@ type
TGDBMIDebuggerProperties = class(TDebuggerProperties)
private
{$IFDEF UNIX}
FConsoleTty: String;
{$ENDIF}
FGDBOptions: String;
FOverrideRTLCallingConvention: TGDBMIRTLCallingConvention;
public
@ -123,6 +126,9 @@ type
published
property OverrideRTLCallingConvention: TGDBMIRTLCallingConvention read FOverrideRTLCallingConvention write FOverrideRTLCallingConvention;
property Debugger_Startup_Options: String read FGDBOptions write FGDBOptions;
{$IFDEF UNIX}
property ConsoleTty: String read FConsoleTty write FConsoleTty;
{$ENDIF}
end;
TGDBMIDebugger = class;
@ -2926,11 +2932,15 @@ function TGDBMIDebuggerCommandStartDebugging.DoExecute: Boolean;
var
R: TGDBMIExecResult;
s: String;
FileType, EntryPoint: String;
List: TGDBMINameValueList;
TargetPIDPart: String;
TempInstalled, CanContinue: Boolean;
CommandObj: TGDBMIDebuggerCommandExecute;
{$IFDEF UNIX}
h: THandle;
{$ENDIF}
begin
Result := True;
FSuccess := False;
@ -2965,6 +2975,17 @@ begin
// set the output width to a great value to avoid unexpected
// new lines like in large functions or procedures
ExecuteCommand('set width 50000', []);
{$IFDEF UNIX}
// Make sure consule output will ot be mixed with gbd output
s := TGDBMIDebuggerProperties(FTheDebugger.GetProperties).ConsoleTty;
if s = '' then s := '/dev/null';
h := fileopen(S, fmOpenWrite);
if (IsATTY(h) <> 1)
or (not ExecuteCommand('set inferior-tty %s', [s], R)) or (r.State = dsError)
then
ExecuteCommand('set inferior-tty /dev/null', []);
FileClose(h);
{$ENDIF}
if tfHasSymbols in TargetInfo^.TargetFlags
then begin
@ -4459,6 +4480,9 @@ end;
constructor TGDBMIDebuggerProperties.Create;
begin
FOverrideRTLCallingConvention := ccDefault;
{$IFDEF UNIX}
FConsoleTty := '/dev/null';
{$ENDIF}
inherited;
end;
@ -4467,6 +4491,9 @@ begin
inherited Assign(Source);
FGDBOptions := TGDBMIDebuggerProperties(Source).FGDBOptions;
FOverrideRTLCallingConvention := TGDBMIDebuggerProperties(Source).FOverrideRTLCallingConvention;
{$IFDEF UNIX}
FConsoleTty := TGDBMIDebuggerProperties(Source).FConsoleTty;
{$ENDIF}
end;