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

Fpdebug: protect remote communication in SendMonitorCmd with Enter/LeaveCriticalSection. Also remove unused variables.

Browse Source
This commit is contained in:
ccrause 2024-02-06 20:29:41 +02:00 committed by Martin
parent 2bae28ff63
commit eabf701ee5
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/fpdebug/fpdbgrsp.pas
View File

@ -200,8 +200,6 @@ begin
end;
procedure TRspConnection.ResetStatusEvent;
var
i: integer;
begin
with FStatusEvent do
begin
@ -574,7 +572,7 @@ function TRspConnection.WaitForSignal(out msg: string): integer;
var
res: boolean;
startIndex, colonIndex, semicolonIndex, i: integer;
tmp, tmp2: qword;
tmp: qword;
part1, part2, s: string;
begin
result := 0;
@ -974,7 +972,12 @@ var
cmdstr, reply: string;
begin
cmdstr := 'qRcmd,' + HexEncodeStr(s);
result := SendCmdWaitForReply(cmdstr, reply) and not(SockErr);
EnterCriticalSection(fCS);
try
result := SendCmdWaitForReply(cmdstr, reply) and not(SockErr);
finally
LeaveCriticalSection(fCS);
end;
if reply = '' then
DebugLn(DBG_RSP, ['[Monitor '+s+'] : "qRcmd" not recognized by gdbserver.'])