paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-06 23:40:52 +01:00
Code Issues Packages Projects Releases Wiki Activity

Trying to fix Pause behaviour over RSP: Disable FIsPaused assert in ThreadReadState method. Call WaitForSignal after sending Break request. Call Sleep after waiting for WaitForSignal so that a queued request has time to get processed.

Browse Source
This commit is contained in:
ccrause 2021-07-31 13:21:07 +02:00
parent 160c57451a
commit e524997317
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/fpdebug/fpdbgavrclasses.pas
View File

@ -284,7 +284,7 @@ end;
function TDbgAvrThread.ReadThreadState: boolean;
begin
assert(FIsPaused, 'TDbgRspThread.ReadThreadState: FIsPaused');
// assert(FIsPaused, 'TDbgRspThread.ReadThreadState: FIsPaused');
result := true;
if FHasThreadState then
exit;
@ -776,10 +776,11 @@ begin
repeat
try
FStatus := FConnection.WaitForSignal(s, initRegs); // TODO: Update registers cache
sleep(1);
except
FStatus := 0;
end;
until FStatus <> 0; // should probably wait at lower level...
until FStatus <> 0;
if FStatus <> 0 then
begin
@ -789,7 +790,7 @@ begin
end;
end;
result := true;
result := FStatus <> 0;
end;
function TDbgAvrProcess.InsertBreakInstructionCode(const ALocation: TDBGPtr;