Browse Source

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

git-svn-id: trunk@30134 -

nickysn 10 years ago
parent
commit
fa48ef574a
1 changed files with 3 additions and 3 deletions
  1. 3 3
      ide/fpregs.pas

+ 3 - 3
ide/fpregs.pas

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