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

LLDB Debugger: improve ignoring common error msgs (unknown dwarf)

Browse Source 
git-svn-id: trunk@58381 -
This commit is contained in:
martin 2018-06-22 19:13:33 +00:00
parent 795ed3a012
commit 4d46bbfd23
1 changed files with 19 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
components/lazdebuggers/lazdebuggerlldb/lldbinstructions.pas
View File

@ -21,6 +21,7 @@ type
TLldbInstructionQueue = class(TDBGInstructionQueue)
private
protected
function CheckForIgnoredError(const AData: String): Boolean;
procedure DoBeforeHandleLineReceived(var ALine: String); override;
function GetSelectFrameInstruction(AFrame: Integer): TDBGInstruction; override;
@ -37,7 +38,6 @@ type
function GetQueue: TLldbInstructionQueue;
protected
function ProcessInputFromDbg(const AData: String): Boolean; override;
function CheckForIgnoredError(const AData: String): Boolean;
procedure SetContentReceieved; reintroduce;
property Queue: TLldbInstructionQueue read GetQueue;
@ -227,12 +227,30 @@ implementation
{ TLldbInstructionQueue }
function TLldbInstructionQueue.CheckForIgnoredError(const AData: String
): Boolean;
begin
Result := True;
if StrStartsWith(AData, 'error: ') then begin // ignore dwarf warnings
if StrMatches(AData, ['error', 'unhandled type tag', 'DW_TAG_', '']) then // ignore dwarf warnings
exit;
if StrStartsWith(AData, 'error: need to add support for DW_TAG_') then // ignore dwarf warnings
exit;
end;
Result := False;
end;
procedure TLldbInstructionQueue.DoBeforeHandleLineReceived(var ALine: String);
begin
while LeftStr(ALine, 7) = '(lldb) ' do begin
Delete(ALine, 1, 7);
end;
if CheckForIgnoredError(ALine) then begin
ALine := '';
exit;
end;
inherited DoBeforeHandleLineReceived(ALine);
// TODO: detect the echo, and flag if data is for RunningInstruction;
@ -283,26 +301,12 @@ begin
Result := False;
if LeftStr(AData, 7) = 'error: ' then begin
Result := True;
if CheckForIgnoredError(AData) then
exit;
HandleError(ifeContentError);
exit;
end;
end;
function TLldbInstruction.CheckForIgnoredError(const AData: String): Boolean;
begin
Result := True;
if StrStartsWith(AData, 'error: ') then begin // ignore dwarf warnings
if StrMatches(AData, ['error', 'unhandled type tag', 'DW_TAG_', '']) then // ignore dwarf warnings
exit;
if StrStartsWith(AData, 'error: need to add support for DW_TAG_') then // ignore dwarf warnings
exit;
end;
Result := False;
end;
procedure TLldbInstruction.SetContentReceieved;
begin
inherited;
@ -563,9 +567,6 @@ var
begin
Result := True;
if CheckForIgnoredError(AData) then
exit;
if FRes <> '' then begin
FRes := FRes + AData;
if ParseStruct(AData) then
@ -612,9 +613,6 @@ begin
exit;
Result := True;
if CheckForIgnoredError(AData) then
exit;
if StrMatches(AData, ['0x', ': ', ''], found) then begin
@ -681,8 +679,6 @@ begin
exit;
Result := True;
if CheckForIgnoredError(AData) then
exit;
if StrStartsWith(AData, 'General Purpose Registers:') then
exit;
@ -764,8 +760,6 @@ begin
exit;
Result := True;
if CheckForIgnoredError(AData) then
exit;
if StrStartsWith(AData, 'Process ') then
exit;
@ -821,8 +815,6 @@ begin
exit;
Result := True;
if CheckForIgnoredError(AData) then
exit;
if StrStartsWith(AData, '* thread ') then
exit;