From a4bc127fb239f6ef7bf25762b28e5bfc99d85ec1 Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Fri, 28 Feb 2025 00:08:53 +0100
Subject: [PATCH] LazDebuggerLldb: clean up, formatting !442

---
 .../lazdebuggerlldb/lldbinstructions.pas            | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/components/lazdebuggers/lazdebuggerlldb/lldbinstructions.pas b/components/lazdebuggers/lazdebuggerlldb/lldbinstructions.pas
index 4f492786c8..73d710a28a 100644
--- a/components/lazdebuggers/lazdebuggerlldb/lldbinstructions.pas
+++ b/components/lazdebuggers/lazdebuggerlldb/lldbinstructions.pas
@@ -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;