paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 07:43:04 +01:00
Code Issues Packages Projects Releases Wiki Activity

* check if breakpoint name is assigned when displaying breakpoints in the disassembly window, resolves #9257

Browse Source 
git-svn-id: trunk@8857 -
This commit is contained in:
florian 2007-10-19 22:34:31 +00:00
parent 77daccf9e6
commit 63a73870cf
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/fpdebug.pas
View File

@ -1818,9 +1818,12 @@ procedure TBreakpointCollection.ShowBreakpoints(W : PFPWindow);
end
else
begin
Val('$'+P^.Name^,HAddr,code);
If (P^.typ=bt_address) and (PDL^.Address=HAddr) then
PDisassemblyWindow(W)^.Editor^.SetLineFlagState(i,lfBreakpoint,P^.state=bs_enabled);
if assigned(P^.Name) then
begin
Val('$'+P^.Name^,HAddr,code);
If (P^.typ=bt_address) and (PDL^.Address=HAddr) then
PDisassemblyWindow(W)^.Editor^.SetLineFlagState(i,lfBreakpoint,P^.state=bs_enabled);
end;
end;
end;
end;