paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 18:09:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2024-02-15 00:16:13 +00:00 committed by FPK
parent 63e8633262
commit ac3425a14d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/nbas.pas
View File

@ -785,7 +785,7 @@ implementation
; ;
end; end;
end end
else else if forinline or (cs_opt_level2 in current_settings.optimizerswitches) then
begin begin
n := TStatementNode(left); n := TStatementNode(left);
while Assigned(n) and Assigned(n.right) do while Assigned(n) and Assigned(n.right) do