Browse Source

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

git-svn-id: trunk@8857 -
florian 18 years ago
parent
commit
63a73870cf
1 changed files with 6 additions and 3 deletions
  1. 6 3
      ide/fpdebug.pas

+ 6 - 3
ide/fpdebug.pas

@@ -1818,9 +1818,12 @@ procedure TBreakpointCollection.ShowBreakpoints(W : PFPWindow);
           end
           end
         else
         else
           begin
           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;
       end;
   end;
   end;