paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:09:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* show a persistent message "debugger error" in the register windows in case

Browse Source 
there's an error retrieving the register values. Previously, the message would
  appear, but subsequent window redraws would show invalid register values
  instead of the message.

git-svn-id: trunk@30135 -
This commit is contained in:
nickysn 2015-03-08 02:19:52 +00:00
parent fa48ef574a
commit 5d43ce99cd
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/fpregs.pas
View File

@ -81,6 +81,7 @@ uses
InDraw : boolean;
GDBCount : longint;
first : boolean;
LastOK : boolean;
constructor Init(var Bounds: TRect);
procedure Draw;virtual;
destructor Done; virtual;
@ -128,6 +129,7 @@ uses
UseInfoFloat : boolean;
{$endif not cpu_known}
first : boolean;
LastOK : boolean;
constructor Init(var Bounds: TRect);
procedure Draw;virtual;
destructor Done; virtual;
@ -189,6 +191,7 @@ uses
UseInfoVector : boolean;
{$endif not cpu_known}
first : boolean;
LastOK : boolean;
constructor Init(var Bounds: TRect);
procedure Draw;virtual;
destructor Done; virtual;
@ -507,6 +510,7 @@ const
begin
OldReg:=NewReg;
OK:=GetIntRegs(rs);
LastOK:=OK;
NewReg:=rs;
{ get inital values }
if first then
@ -519,7 +523,7 @@ const
else
begin
rs:=NewReg;
OK:=true;
OK:=LastOK;
end;
if OK then
begin
@ -1076,6 +1080,7 @@ const
,UseInfoFloat
{$endif not cpu_known}
);
LastOK:=OK;
NewReg:=rs;
{ get inital values }
if first then
@ -1088,7 +1093,7 @@ const
else
begin
rs:=newreg;
OK:=true;
OK:=LastOK;
end;
if OK then
begin
@ -1460,6 +1465,7 @@ const
,UseInfoVector
{$endif not cpu_known}
);
LastOK:=OK;
NewReg:=rs;
{ get inital values }
if first then
@ -1472,7 +1478,7 @@ const
else
begin
rs:=newreg;
OK:=true;
OK:=LastOK;
end;
if OK then
begin