paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 09:49:11 +02: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

3
ide/fpdebug.pas
View File

@ -1817,6 +1817,8 @@ procedure TBreakpointCollection.ShowBreakpoints(W : PFPWindow);
end;
end
else
begin
if assigned(P^.Name) then
begin
Val('$'+P^.Name^,HAddr,code);
If (P^.typ=bt_address) and (PDL^.Address=HAddr) then
@ -1824,6 +1826,7 @@ procedure TBreakpointCollection.ShowBreakpoints(W : PFPWindow);
end;
end;
end;
end;
begin
if W=PFPWindow(DisassemblyWindow) then