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

Debugger-Gdbmi: fix setting internal breakpoints by address only.

Browse Source 
git-svn-id: trunk@59481 -
This commit is contained in:
martin 2018-11-07 19:37:50 +00:00
parent 2af35ade49
commit 9fd763ca67
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -11617,7 +11617,10 @@ begin
InternalSetAddr(ACmd, iblAddrOfNamed, GetInfoAddr(ACmd)); InternalSetAddr(ACmd, iblAddrOfNamed, GetInfoAddr(ACmd));
// SetNamedOnFail includes if blocked // SetNamedOnFail includes if blocked
If SetNamedOnFail and (FBreaks[iblNamed].BreakGdbId < 0) then If SetNamedOnFail and (FBreaks[iblNamed].BreakGdbId < 0) and
(FBreaks[iblAddrOfNamed].BreakGdbId < 0) and
( (FMainAddrFound = 0) or (not HasBreakAtAddr(FMainAddrFound)) )
then
BreakSet(ACmd, FName, iblNamed, coKeepIfSet); BreakSet(ACmd, FName, iblNamed, coKeepIfSet);
end; end;