paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 10:57:55 +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; exit;
if StrMatches(AData, [' ', ' = ', ''], found) then begin if StrMatches(AData, [' ', ' = ', ''], found) then begin
if FRes = nil then FRes := TStringList.Create; if FRes = nil then
reg := UpperCase(trim(found[0])); FRes := TStringList.Create;
i := pos(' ', found[1]); reg := UpperCase(trim(found[0]));
if i < 1 then i := Length(found[1]); i := pos(' ', found[1]);
val := copy(found[1], 1, i); if i < 1 then i := Length(found[1]);
FRes.Values[reg] := val; val := copy(found[1], 1, i);
FRes.Values[reg] := val;
exit; exit;
end; end;