From 8ea4c79f192ada2f36287f2cd36bf65fb5076e85 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graemeg@gmail.com>
Date: Tue, 2 Jun 2026 09:49:40 +0100
Subject: [PATCH] style(codegen): fix indentation of EmitFFIRecordTypeDecls
 call sites

Both calls to EmitFFIRecordTypeDecls and the following
FOutput.AppendBuffer(Body) in GenerateUnit/AppendUnit were
de-dented one level outside the enclosing try..finally body.
Align them with the surrounding code.
---
 compiler/src/main/pascal/uCodeGenQBE.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/src/main/pascal/uCodeGenQBE.pas b/compiler/src/main/pascal/uCodeGenQBE.pas
index 7496b2c..d47a084 100644
--- a/compiler/src/main/pascal/uCodeGenQBE.pas
+++ b/compiler/src/main/pascal/uCodeGenQBE.pas
@@ -9970,7 +9970,7 @@ begin
         EmitFieldCleanupFn(GI.TypeName, RT);
       end;
       EmitFFIRecordTypeDecls;
-    FOutput.AppendBuffer(Body);
+      FOutput.AppendBuffer(Body);
     finally
       Body.Free;
     end;
@@ -10346,7 +10346,7 @@ begin
       EmitLocalArrayConstsInUnit(AUnit);
 
       EmitFFIRecordTypeDecls;
-    FOutput.AppendBuffer(Body);
+      FOutput.AppendBuffer(Body);
 
       { Initialization section: emit as export function $<Unit>_init() }
       if (AUnit.InitStmts <> nil) and (AUnit.InitStmts.Count > 0) then