소스 검색

* always show the "no values available" msg in the register windows when program
isn't running

git-svn-id: trunk@30134 -

nickysn 10 년 전
부모
커밋
fa48ef574a
1개의 변경된 파일3개의 추가작업 그리고 3개의 파일을 삭제
  1. 3 3
      ide/fpregs.pas

+ 3 - 3
ide/fpregs.pas

@@ -496,7 +496,7 @@ const
 {$ifdef NODEBUG}
        WriteStr(1,0,msg_registervaluesnotavailable,7);
 {$else NODEBUG}
-       If not assigned(Debugger) then
+       If (not assigned(Debugger)) or (not Debugger^.IsRunning) then
          begin
             WriteStr(1,0,msg_registervaluesnotavailable,7);
             exit;
@@ -1060,7 +1060,7 @@ const
 {$ifdef NODEBUG}
        WriteStr(1,0,msg_registervaluesnotavailable,7);
 {$else NODEBUG}
-       If not assigned(Debugger) then
+       If (not assigned(Debugger)) or (not Debugger^.IsRunning) then
          begin
             WriteStr(1,0,msg_registervaluesnotavailable,7);
             exit;
@@ -1444,7 +1444,7 @@ const
 {$ifdef NODEBUG}
        WriteStr(1,0,msg_registervaluesnotavailable,7);
 {$else NODEBUG}
-       If not assigned(Debugger) then
+       If (not assigned(Debugger)) or (not Debugger^.IsRunning) then
          begin
             WriteStr(1,0,msg_registervaluesnotavailable,7);
             exit;