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

LazDebuggerLldb: clean up, formatting !442

Browse Source
This commit is contained in:
Martin 2025-02-28 00:08:53 +01:00
parent 13306efd3f
commit a4bc127fb2
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/lazdebuggers/lazdebuggerlldb/lldbinstructions.pas
View File

@ -1244,12 +1244,13 @@ begin
exit;
if StrMatches(AData, [' ', ' = ', ''], found) then begin
if FRes = nil then FRes := TStringList.Create;
reg := UpperCase(trim(found[0]));
i := pos(' ', found[1]);
if i < 1 then i := Length(found[1]);
val := copy(found[1], 1, i);
FRes.Values[reg] := val;
if FRes = nil then
FRes := TStringList.Create;
reg := UpperCase(trim(found[0]));
i := pos(' ', found[1]);
if i < 1 then i := Length(found[1]);
val := copy(found[1], 1, i);
FRes.Values[reg] := val;
exit;
end;