paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 07:50:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* compile float*2 as float+float if possible as proposed by Rika, resolves #40116

Browse Source
This commit is contained in:
florian 2023-01-22 20:07:40 +01:00
parent ec28b7586c
commit 789031a6e6
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/nadd.pas
View File

@ -1100,6 +1100,12 @@ implementation
begin begin
result:=right.getcopy; result:=right.getcopy;
exit; exit;
end
else if (trealconstnode(left).value_real=2) and (nodetype=muln) and not(might_have_sideeffects(right,[mhs_exceptions])) and
(node_complexity(right)<=1) then
begin
result:=caddnode.create_internal(addn,right.getcopy,right.getcopy);
exit;
end; end;
end end
else if rt=realconstn then else if rt=realconstn then
@ -1127,6 +1133,12 @@ implementation
begin begin
result:=left.getcopy; result:=left.getcopy;
exit; exit;
end
else if (trealconstnode(right).value_real=2) and (nodetype=muln) and not(might_have_sideeffects(left,[mhs_exceptions])) and
(node_complexity(left)<=1) then
begin
result:=caddnode.create_internal(addn,left.getcopy,left.getcopy);
exit;
end; end;
end end
{ optimize a/a and a-a } { optimize a/a and a-a }