paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 09:07:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

LldbDebugger: Detect if the external exe is wrongly set to gdb.

Browse Source 
git-svn-id: trunk@60599 -
This commit is contained in:
martin 2019-03-06 17:41:05 +00:00
parent c81de7635a
commit 8b7014dbb0
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
components/lazdebuggers/lazdebuggerlldb/lldbdebugger.pas
View File

@ -94,8 +94,11 @@ type
{ TLldbDebuggerCommandInit }
TLldbDebuggerCommandInit = class(TLldbDebuggerCommand)
private
FGotLLDB: Boolean;
protected
procedure DoExecute; override;
procedure DoLineDataReceived(var ALine: String); override;
end;
{ TLldbDebuggerCommandRun }
@ -265,11 +268,13 @@ type
TLldbDebuggerProperties = class(TDebuggerProperties)
private
FLaunchNewTerminal: Boolean;
FSkipGDBDetection: Boolean;
public
constructor Create; override;
procedure Assign(Source: TPersistent); override;
published
property LaunchNewTerminal: Boolean read FLaunchNewTerminal write FLaunchNewTerminal default False;
property SkipGDBDetection: Boolean read FSkipGDBDetection write FSkipGDBDetection default False;
end;
TLldbDebugger = class(TDebuggerIntf)
@ -317,6 +322,7 @@ type
procedure QueueCommand(const ACommand: TLldbDebuggerCommand);
//procedure DoState(const OldState: TDBGState); override;
//procedure DoBeforeState(const OldState: TDBGState); override;
procedure SetErrorState(const AMsg: String; const AInfo: String = '');
function DoExceptionHit(AExcClass, AExcMsg: String): Boolean;
function DoBreakpointHit(BrkId: Integer): Boolean;
@ -525,12 +531,14 @@ constructor TLldbDebuggerProperties.Create;
begin
inherited Create;
FLaunchNewTerminal := False;
FSkipGDBDetection := False;
end;
procedure TLldbDebuggerProperties.Assign(Source: TPersistent);
begin
inherited Assign(Source);
FLaunchNewTerminal := TLldbDebuggerProperties(Source).FLaunchNewTerminal;
FSkipGDBDetection := TLldbDebuggerProperties(Source).FSkipGDBDetection;
end;
{ TLldbDebuggerCommandRun }
@ -2216,6 +2224,21 @@ begin
Instr.ReleaseReference;
end;
procedure TLldbDebuggerCommandInit.DoLineDataReceived(var ALine: String);
begin
inherited DoLineDataReceived(ALine);
if FGotLLDB then
exit;
if TLldbDebuggerProperties(Debugger.GetProperties).SkipGDBDetection then
FGotLLDB := True
else
if StrContains(UpperCase(ALine), 'LLDB') then
FGotLLDB := True
else
if StrContains(UpperCase(ALine), '(GDB)') then
Debugger.SetErrorState('GDB detected', 'The external debugger identified itself as GDB. The IDE expected LLDB.');
end;
{ TLldbDebuggerCommandRunStep }
procedure TLldbDebuggerCommandRunStep.DoInitialExecute;
@ -2735,6 +2758,11 @@ begin
FCommandQueue.QueueCommand(ACommand);
end;
procedure TLldbDebugger.SetErrorState(const AMsg: String; const AInfo: String);
begin
inherited SetErrorState(AMsg, AInfo);
end;
function TLldbDebugger.DoExceptionHit(AExcClass, AExcMsg: String): Boolean;
begin
if Assigned(EventLogHandler) then