From 63a73870cf85e598f4509a84a93c2d9c5b513387 Mon Sep 17 00:00:00 2001 From: florian Date: Fri, 19 Oct 2007 22:34:31 +0000 Subject: [PATCH] * check if breakpoint name is assigned when displaying breakpoints in the disassembly window, resolves #9257 git-svn-id: trunk@8857 - --- ide/fpdebug.pas | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/ide/fpdebug.pas b/ide/fpdebug.pas index c494deea6f..3d88ca50f1 100644 --- a/ide/fpdebug.pas +++ b/ide/fpdebug.pas @@ -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;