paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-02 06:39:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

DebuggerGDBMI: fix handling internal breakpoints. After an exception normal run/F9 was sometimes broken due to breakpoints not cleared

Browse Source 
git-svn-id: trunk@47382 -
This commit is contained in:
martin 2015-01-14 16:12:50 +00:00
parent 07ac489e6c
commit 78dc09170e
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -11453,6 +11453,7 @@ begin
ACmd.ExecuteCommand('-break-insert %s', [ALoc], R);
Result := R.State <> dsError;
if not Result then exit;
FEnabled := True;
ResultList := TGDBMINameValueList.Create(R, ['bkpt']);
AId := StrToIntDef(ResultList.Values['number'], -1);
@ -11510,7 +11511,7 @@ begin
FLineOffsAddr := 0;
FUseForceFlag := False;
FName := AName;
FEnabled := True;
FEnabled := False;
end;
(* Using -insert-break with a function name allows GDB to adjust the address
@ -11642,7 +11643,7 @@ var
R: TGDBMIExecResult;
begin
if FEnabled then exit;
FEnabled := True;
FEnabled := (FNameBreakID >= 0) or (FAddrBreakID >= 0) or (FCustomID >= 0) or (FLineOffsID >= 0);
if FNameBreakID >= 0 then
ACmd.ExecuteCommand('-break-enable %d', [FNameBreakID], R);