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

Debugger, GDBMI: Use force flag for exception breakpoints (at startup). Required for debugging dll. Only works if InternalExceptionBreakSetMethod = imbName

Browse Source 
git-svn-id: trunk@62610 -
This commit is contained in:
martin 2020-02-04 03:04:51 +00:00
parent 3de674b205
commit 50b0a3f2f6
1 changed files with 6 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -5664,18 +5664,12 @@ begin
FTheDebugger.FFpcSpecificHandlerCallFin.SetByAddrMethod := ibmAddrDirect;
FTheDebugger.FFpcSpecificHandler.SetByAddrMethod := ibmAddrIndirect; // must be at first asm line
{$IFdef WITH_GDB_FORCE_EXCEPTBREAK}
FTheDebugger.FExceptionBreak.SetByAddr(Self, True);
FTheDebugger.FBreakErrorBreak.SetByAddr(Self, True);
FTheDebugger.FRunErrorBreak.SetByAddr(Self, True);
{$Else}
if ieRaiseBreakPoint in DbgProp.InternalExceptionBreakPoints
then FTheDebugger.FExceptionBreak.SetByAddr(Self);
if ieBreakErrorBreakPoint in DbgProp.InternalExceptionBreakPoints
then FTheDebugger.FBreakErrorBreak.SetByAddr(Self);
if ieRunErrorBreakPoint in DbgProp.InternalExceptionBreakPoints
then FTheDebugger.FRunErrorBreak.SetByAddr(Self);
{$ENDIF}
if (not ((FTheDebugger.FExceptionBreak.IsBreakSet or not (ieRaiseBreakPoint in DbgProp.InternalExceptionBreakPoints)) and
(FTheDebugger.FBreakErrorBreak.IsBreakSet or not (ieBreakErrorBreakPoint in DbgProp.InternalExceptionBreakPoints)) and
(FTheDebugger.FRunErrorBreak.IsBreakSet or not (ieRunErrorBreakPoint in DbgProp.InternalExceptionBreakPoints)) )) and
@ -8346,11 +8340,9 @@ begin
FFpcSpecificHandlerCallFin:= TGDBMIInternalBreakPoint.Create('');
FSehFinallyBreaks := TGDBMIInternalSehFinallyBreakPointList.Create;
FSehCatchesBreaks := TGDBMIInternalAddrBreakPointList.Create;
{$IFdef WITH_GDB_FORCE_EXCEPTBREAK}
FBreakErrorBreak.UseForceFlag := True;
FRunErrorBreak.UseForceFlag := True;
FExceptionBreak.UseForceFlag := True;
{$ENDIF}
FBreakErrorBreak.UseForceFlag := not TGDBMIDebuggerProperties(GetProperties).DisableForcedBreakpoint;
FRunErrorBreak.UseForceFlag := not TGDBMIDebuggerProperties(GetProperties).DisableForcedBreakpoint;
FExceptionBreak.UseForceFlag := not TGDBMIDebuggerProperties(GetProperties).DisableForcedBreakpoint;
FInstructionQueue := TGDBMIDbgInstructionQueue.Create(Self);
FCommandQueue := TGDBMIDebuggerCommandList.Create;
@ -12643,7 +12635,9 @@ begin
FBreaks[ALoc].BreakAddr := 0;
FBreaks[ALoc].BreakFunction := '';
if UseForceFlag and ACmd.FTheDebugger.CanForceBreakPoints then
if UseForceFlag and ACmd.FTheDebugger.CanForceBreakPoints and
(ABreakLoc <> '') and not(ABreakLoc[1] in ['+', '*'])
then
begin
if (not ACmd.ExecuteCommand('-break-insert -f %s', [ABreakLoc], R)) or
(R.State = dsError)