Pārlūkot izejas kodu

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

git-svn-id: trunk@8857 -
florian 18 gadi atpakaļ
vecāks
revīzija
63a73870cf
1 mainītis faili ar 6 papildinājumiem un 3 dzēšanām
  1. 6 3
      ide/fpdebug.pas

+ 6 - 3
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;