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

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