paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-05 19:20:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

GdbmiDebugger: don't try to evaluate non-existing registers from cache (if target CPU was changed)

Browse Source
This commit is contained in:
Martin 2024-07-09 19:53:28 +02:00
parent 8ec704c935
commit 0f2c5ea302
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -2082,6 +2082,9 @@ begin
FreeAndNil(List); FreeAndNil(List);
end; end;
for i := 0 to Length(FGDBMIRegSupplier.FRegNamesCache) - 1 do
if FRegisters.EntriesByName[FGDBMIRegSupplier.FRegNamesCache[i]].DataValidity = ddsUnknown then
FRegisters.EntriesByName[FGDBMIRegSupplier.FRegNamesCache[i]].DataValidity := ddsRequested;
if FRegisters.DataValidity = ddsRequested then begin if FRegisters.DataValidity = ddsRequested then begin
ChangedRegList := nil; ChangedRegList := nil;
@ -2111,7 +2114,7 @@ begin
// check for individual updates / displayformat // check for individual updates / displayformat
for i := 0 to FRegisters.Count - 1 do begin for i := 0 to FRegisters.Count - 1 do begin
if not FRegisters[i].HasValue then if (not FRegisters[i].HasValue) and (FRegisters[i].DataValidity = ddsRequested) then
UpdateFormat(FRegisters[i].DisplayFormat); UpdateFormat(FRegisters[i].DisplayFormat);
end; end;
finally finally