paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 18:40:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed registervalue resolving

Browse Source 
git-svn-id: trunk@17454 -
This commit is contained in:
marc 2008-11-19 23:50:39 +00:00
parent 0b67eb27a2
commit ba81fecd5c
1 changed files with 3 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
debugger/gdbmidebugger.pp
View File

@ -301,8 +301,6 @@ type
function GetValue(const AnIndex: Integer): String; override;
public
procedure Changed; override;
constructor Create(const ADebugger: TDebugger);
destructor Destroy; override;
end;
{ TGDBMIWatch }
@ -2851,17 +2849,6 @@ begin
inherited Changed;
end;
constructor TGDBMIRegisters.Create(const ADebugger: TDebugger);
begin
FValuesValid := False;
inherited;
end;
destructor TGDBMIRegisters.Destroy;
begin
inherited;
end;
procedure TGDBMIRegisters.DoStateChange(const AOldState: TDBGState);
begin
if Debugger <> nil
@ -2956,6 +2943,9 @@ var
Item: PGDBMINameValue;
n, idx: Integer;
begin
if Debugger = nil then Exit;
if FValuesValid then Exit;
RegistersNeeded;
FValuesValid := True;
for n := Low(FRegisters) to High(FRegisters) do