From ac3425a14d1cf2fd82482cf0d1118b6d4ce39bef Mon Sep 17 00:00:00 2001
From: "J. Gareth \"Curious Kit\" Moreton" <gareth@moreton-family.com>
Date: Thu, 15 Feb 2024 00:16:13 +0000
Subject: [PATCH]   * Only perform the block flattening if "forinline" is true
 or under -O2 and above

---
 compiler/nbas.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/nbas.pas b/compiler/nbas.pas
index bd86996b1b..ec608fd009 100644
--- a/compiler/nbas.pas
+++ b/compiler/nbas.pas
@@ -785,7 +785,7 @@ implementation
                     ;
                 end;
               end
-            else
+            else if forinline or (cs_opt_level2 in current_settings.optimizerswitches) then
               begin
                 n := TStatementNode(left);
                 while Assigned(n) and Assigned(n.right) do