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

[RSP] Removed unused variables.

Browse Source
This commit is contained in:
ccrause 2021-12-28 21:42:14 +02:00 committed by Martin
parent 411eebba23
commit 1bad121570
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/fpdebug/fpdbgrsp.pas
View File

@ -477,19 +477,15 @@ end;
function TRspConnection.IntToHexLittleEndian(value: qword): string;
var
b, accumulator, digits: byte;
b, accumulator: byte;
begin
Result := '';
digits := 0;
accumulator := 0;
while value > 0 do
begin
inc(accumulator, 2);
b := byte(value);
value := value shr 8;
if b > 0 then
digits := accumulator;
Result := Result + IntToHex(b, 2);
end;
end;
@ -594,7 +590,7 @@ function TRspConnection.WaitForSignal(out msg: string; out
registers: TInitializedRegisters): integer;
var
res: boolean;
startIndex, colonIndex, semicolonIndex, i, ID: integer;
startIndex, colonIndex, semicolonIndex, i: integer;
tmp, tmp2: qword;
part1, part2, s: string;
begin