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

GdbmiDebugger: skip shortstring for gdb 10.1 as it may cause errors / Add code to ignore (expected) internal errors

Browse Source 
git-svn-id: trunk@64954 -
This commit is contained in:
martin 2021-04-10 23:47:55 +00:00
parent 8c6dd0ff09
commit 2c0b13fb1f
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -118,7 +118,8 @@ type
dfForceBreak, // Debugger supports insertion of not yet known brekpoints dfForceBreak, // Debugger supports insertion of not yet known brekpoints
dfForceBreakDetected, dfForceBreakDetected,
dfSetBreakFailed, dfSetBreakFailed,
dfSetBreakPending dfSetBreakPending,
dfIgnoreInternalError
); );
TTargetRegisterIdent = (r0, r1, r2, rBreakErrNo); TTargetRegisterIdent = (r0, r1, r2, rBreakErrNo);
@ -2889,8 +2890,11 @@ begin
if LazStartsText('type = ^EXCEPTION', R.Values) if LazStartsText('type = ^EXCEPTION', R.Values)
then include(TargetInfo^.TargetFlags, tfExceptionIsPointer); then include(TargetInfo^.TargetFlags, tfExceptionIsPointer);
end; end;
CheckHasType('Shortstring', tfFlagHasTypeShortstring); if FTheDebugger.FGDBVersionMajor < 10 then begin
HadTimeout := HadTimeout and LastExecwasTimeOut; // causes internal error in gdb 10 // Maybe use dfIgnoreInternalError
CheckHasType('Shortstring', tfFlagHasTypeShortstring);
HadTimeout := HadTimeout and LastExecwasTimeOut;
end;
//CheckHasType('PShortstring', tfFlagHasTypePShortString); //CheckHasType('PShortstring', tfFlagHasTypePShortString);
//HadTimeout := HadTimeout and LastExecwasTimeOut; //HadTimeout := HadTimeout and LastExecwasTimeOut;
CheckHasType('pointer', tfFlagHasTypePointer); CheckHasType('pointer', tfFlagHasTypePointer);
@ -8917,7 +8921,7 @@ function TGDBMIDebuggerBase.CheckForInternalError(ALine, ACurCommandText: String
function IsErrorLine(const L: String): Boolean; function IsErrorLine(const L: String): Boolean;
begin begin
Result := (PosI('internal-error:', L) > 0) or Result := (PosI('internal-error:', L) > 0)or
(PosI('internal to gdb has been detected', L) > 0) or (PosI('internal to gdb has been detected', L) > 0) or
(PosI('further debugging may prove unreliable', L) > 0) or (PosI('further debugging may prove unreliable', L) > 0) or
(PosI('command aborted.', L) > 0); (PosI('command aborted.', L) > 0);
@ -8937,7 +8941,7 @@ var
S: String; S: String;
i: Integer; i: Integer;
begin begin
Result := IsErrorLine(ALine); Result := IsErrorLine(ALine) ;
if Result then begin if Result then begin
FNeedReset := True; FNeedReset := True;
@ -8950,6 +8954,9 @@ begin
S := ReadLine(True, 50); S := ReadLine(True, 50);
end; end;
if (dfIgnoreInternalError in FDebuggerFlags) then
exit;
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)