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

LazDebuggerGdbmi: Detect multi-line internal gdb errors as one error.

Browse Source 
git-svn-id: trunk@60475 -
This commit is contained in:
martin 2019-02-23 15:00:21 +00:00
parent 1a62240d73
commit f10ec28818
1 changed files with 33 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -7933,13 +7933,42 @@ end;
function TGDBMIDebugger.CheckForInternalError(ALine, ACurCommandText: String function TGDBMIDebugger.CheckForInternalError(ALine, ACurCommandText: String
): Boolean; ): Boolean;
function IsErrorLine(const L: String): Boolean;
begin
Result := (Pos('internal-error:', LowerCase(L)) > 0) or
(Pos('internal to gdb has been detected', LowerCase(L)) > 0) or
(Pos('further debugging may prove unreliable', LowerCase(L)) > 0) or
(Pos('command aborted.', LowerCase(L)) > 0);
end;
function IsErrorContinued(const L: String): Boolean;
begin
Result := (L <> '') and (L[1] = '&') and
(
IsErrorLine(L) or
(Pos('this is a bug, please report it', LowerCase(L)) > 0) or
( (Pos('for instructions', LowerCase(L)) > 0) and (Pos('bugs', LowerCase(L)) > 0) ) or
(L = '&"\n\n"')
);
end;
var
S: String;
i: Integer;
begin begin
Result := (Pos('internal-error:', LowerCase(ALine)) > 0) or Result := IsErrorLine(ALine);
(Pos('internal to gdb has been detected', LowerCase(ALine)) > 0) or
(Pos('further debugging may prove unreliable', LowerCase(ALine)) > 0) or
(Pos('command aborted.', LowerCase(ALine)) > 0);
if Result then begin if Result then begin
FNeedReset := True; FNeedReset := True;
S := ReadLine(True, 50);
i := 5;
while IsErrorContinued(S) and (i > 0) do begin
ReadLine(1);
ALine := ALine + LineEnding + S;
dec(i);
S := ReadLine(True, 50);
end;
DoDbgEvent(ecDebugger, etDefault, Format(gdbmiEventLogGDBInternalError, [ALine])); DoDbgEvent(ecDebugger, etDefault, Format(gdbmiEventLogGDBInternalError, [ALine]));
if (TGDBMIDebuggerProperties(GetProperties).WarnOnInternalError = TGDBMIDebuggerShowWarning.True) or if (TGDBMIDebuggerProperties(GetProperties).WarnOnInternalError = TGDBMIDebuggerShowWarning.True) or
( (TGDBMIDebuggerProperties(GetProperties).WarnOnInternalError = TGDBMIDebuggerShowWarning.OncePerRun) ( (TGDBMIDebuggerProperties(GetProperties).WarnOnInternalError = TGDBMIDebuggerShowWarning.OncePerRun)