* Only perform the block flattening if "forinline" is true or under -O2 and above

2025-04-20 19:09:23 +02:00 · 2024-02-15 00:16:13 +00:00 · 2024-02-15 00:16:13 +00:00 · ac3425a14d
commit ac3425a14d
parent 63e8633262
1 changed files with 1 additions and 1 deletions
--- 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