paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 13:39:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: fix restoring registers (e.g. after function eval)

Browse Source
This commit is contained in:
Martin 2022-09-07 02:02:42 +02:00
parent deb959022e
commit b3cae05fee
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/fpdebug/fpdbglinuxclasses.pas
View File

@ -905,6 +905,7 @@ procedure TDbgLinuxThread.RestoreRegisters;
begin
FUserRegs:=FStoredUserRegs;
FUserRegsChanged := true;
FRegisterValueListValid := False;
end;
procedure TDbgLinuxThread.StoreRegisters;

2
components/fpdebug/fpdbgwinclasses.pas
View File

@ -1936,6 +1936,8 @@ end;
procedure TDbgWinThread.RestoreRegisters;
begin
_UnAligendContext := _StoredContext;
FThreadContextChanged := True;
FRegisterValueListValid := False;
end;
function TDbgWinThread.GetInstructionPointerRegisterValue: TDbgPtr;