paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-09 18:59:27 +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

9
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -118,7 +118,8 @@ type
dfForceBreak, // Debugger supports insertion of not yet known brekpoints
dfForceBreakDetected,
dfSetBreakFailed,
dfSetBreakPending
dfSetBreakPending,
dfIgnoreInternalError
);
TTargetRegisterIdent = (r0, r1, r2, rBreakErrNo);
@ -2889,8 +2890,11 @@ begin
if LazStartsText('type = ^EXCEPTION', R.Values)
then include(TargetInfo^.TargetFlags, tfExceptionIsPointer);
end;
if FTheDebugger.FGDBVersionMajor < 10 then begin
// causes internal error in gdb 10 // Maybe use dfIgnoreInternalError
CheckHasType('Shortstring', tfFlagHasTypeShortstring);
HadTimeout := HadTimeout and LastExecwasTimeOut;
end;
//CheckHasType('PShortstring', tfFlagHasTypePShortString);
//HadTimeout := HadTimeout and LastExecwasTimeOut;
CheckHasType('pointer', tfFlagHasTypePointer);
@ -8950,6 +8954,9 @@ begin
S := ReadLine(True, 50);
end;
if (dfIgnoreInternalError in FDebuggerFlags) then
exit;
DoDbgEvent(ecDebugger, etDefault, Format(gdbmiEventLogGDBInternalError, [ALine]));
if (TGDBMIDebuggerProperties(GetProperties).WarnOnInternalError = TGDBMIDebuggerShowWarning.True) or
( (TGDBMIDebuggerProperties(GetProperties).WarnOnInternalError = TGDBMIDebuggerShowWarning.OncePerRun)