浏览代码

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

git-svn-id: trunk@8857 -
florian 18 年之前
父节点
当前提交
63a73870cf
共有 1 个文件被更改,包括 6 次插入3 次删除
  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;