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

GDBMI Debugger: add property to disable startup shell

Browse Source 
git-svn-id: trunk@57956 -
This commit is contained in:
martin 2018-05-18 17:58:39 +00:00
parent b374f7c125
commit bd49e508e2
3 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -162,6 +162,7 @@ type
FCaseSensitivity: TGDBMIDebuggerCaseSensitivity; FCaseSensitivity: TGDBMIDebuggerCaseSensitivity;
FDisableForcedBreakpoint: Boolean; FDisableForcedBreakpoint: Boolean;
FDisableLoadSymbolsForLibraries: Boolean; FDisableLoadSymbolsForLibraries: Boolean;
FDisableStartupShell: Boolean;
FEncodeCurrentDirPath: TGDBMIDebuggerFilenameEncoding; FEncodeCurrentDirPath: TGDBMIDebuggerFilenameEncoding;
FEncodeExeFileName: TGDBMIDebuggerFilenameEncoding; FEncodeExeFileName: TGDBMIDebuggerFilenameEncoding;
{$IFDEF UNIX} {$IFDEF UNIX}
@ -212,6 +213,8 @@ type
write FWarnOnSetBreakpointError default gdbwAll; write FWarnOnSetBreakpointError default gdbwAll;
property GdbValueMemLimit: Integer read FGdbValueMemLimit write FGdbValueMemLimit default $60000000; property GdbValueMemLimit: Integer read FGdbValueMemLimit write FGdbValueMemLimit default $60000000;
property AssemblerStyle: TGDBMIDebuggerAssemblerStyle read FAssemblerStyle write FAssemblerStyle default gdasDefault; property AssemblerStyle: TGDBMIDebuggerAssemblerStyle read FAssemblerStyle write FAssemblerStyle default gdasDefault;
property DisableStartupShell: Boolean read FDisableStartupShell
write FDisableStartupShell default False;
end; end;
TGDBMIDebuggerProperties = class(TGDBMIDebuggerPropertiesBase) TGDBMIDebuggerProperties = class(TGDBMIDebuggerPropertiesBase)
@ -235,6 +238,7 @@ type
property CaseSensitivity; property CaseSensitivity;
property GdbValueMemLimit; property GdbValueMemLimit;
property AssemblerStyle; property AssemblerStyle;
property DisableStartupShell;
end; end;
TGDBMIDebugger = class; TGDBMIDebugger = class;
@ -503,6 +507,7 @@ type
function DoSetCaseSensitivity: Boolean; function DoSetCaseSensitivity: Boolean;
function DoSetMaxValueMemLimit: Boolean; function DoSetMaxValueMemLimit: Boolean;
function DoSetAssemblerStyle: Boolean; function DoSetAssemblerStyle: Boolean;
function DoSetDisableStartupShell: Boolean;
end; end;
{ TGDBMIDebuggerCommandChangeFilename } { TGDBMIDebuggerCommandChangeFilename }
@ -1903,6 +1908,13 @@ begin
Result:=true; Result:=true;
end; end;
function TGDBMIDebuggerChangeFilenameBase.DoSetDisableStartupShell: Boolean;
begin
if TGDBMIDebuggerProperties(FTheDebugger.GetProperties).DisableStartupShell then
ExecuteCommand('set startup-with-shell off', [], []);
Result:=true;
end;
{ TGDBMIDbgInstructionQueue } { TGDBMIDbgInstructionQueue }
@ -5119,6 +5131,7 @@ begin
{$ENDIF} {$ENDIF}
ExecuteCommand('-gdb-set language pascal', [cfCheckError]); ExecuteCommand('-gdb-set language pascal', [cfCheckError]);
DoSetDisableStartupShell();
DoSetCaseSensitivity(); DoSetCaseSensitivity();
DoSetMaxValueMemLimit(); DoSetMaxValueMemLimit();
DoSetAssemblerStyle(); DoSetAssemblerStyle();
@ -5411,6 +5424,7 @@ begin
TargetInfo^.TargetPID := NewPID; TargetInfo^.TargetPID := NewPID;
DoSetPascal; DoSetPascal;
DoSetDisableStartupShell();
DoSetCaseSensitivity(); DoSetCaseSensitivity();
DoSetMaxValueMemLimit(); DoSetMaxValueMemLimit();
DoSetAssemblerStyle(); DoSetAssemblerStyle();
@ -7295,6 +7309,7 @@ begin
FCaseSensitivity := gdcsSmartOff; FCaseSensitivity := gdcsSmartOff;
FGdbValueMemLimit := $60000000; FGdbValueMemLimit := $60000000;
FAssemblerStyle := gdasDefault; FAssemblerStyle := gdasDefault;
FDisableStartupShell := False;
inherited; inherited;
end; end;
@ -7320,6 +7335,7 @@ begin
FCaseSensitivity := TGDBMIDebuggerPropertiesBase(Source).FCaseSensitivity; FCaseSensitivity := TGDBMIDebuggerPropertiesBase(Source).FCaseSensitivity;
FGdbValueMemLimit := TGDBMIDebuggerPropertiesBase(Source).FGdbValueMemLimit; FGdbValueMemLimit := TGDBMIDebuggerPropertiesBase(Source).FGdbValueMemLimit;
FAssemblerStyle := TGDBMIDebuggerPropertiesBase(Source).FAssemblerStyle; FAssemblerStyle := TGDBMIDebuggerPropertiesBase(Source).FAssemblerStyle;
FDisableStartupShell := TGDBMIDebuggerPropertiesBase(Source).FDisableStartupShell;
end; end;

1
components/lazdebuggergdbmi/gdbmiserverdebugger.pas
View File

@ -80,6 +80,7 @@ type
property CaseSensitivity; property CaseSensitivity;
property GdbValueMemLimit; property GdbValueMemLimit;
property AssemblerStyle; property AssemblerStyle;
property DisableStartupShell;
end; end;
procedure Register; procedure Register;

1
components/lazdebuggergdbmi/sshgdbmidebugger.pas
View File

@ -94,6 +94,7 @@ type
property CaseSensitivity; property CaseSensitivity;
property GdbValueMemLimit; property GdbValueMemLimit;
property AssemblerStyle; property AssemblerStyle;
property DisableStartupShell;
end; end;
procedure Register; procedure Register;