paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 11:48:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* optimize a/a and a-a if fast math is on

Browse Source 
git-svn-id: trunk@45630 -
This commit is contained in:
florian 2020-06-09 20:50:47 +00:00
parent 8a54e8a773
commit 5f118da600
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/nadd.pas
View File

@ -952,9 +952,10 @@ implementation
end;
{ optimize operations with real constants, but only if fast math is switched on as
the operations could change the sign of 0
the operations could change e.g. the sign of 0 so they cannot be optimized always
}
if cs_opt_fastmath in current_settings.optimizerswitches then
if (cs_opt_fastmath in current_settings.optimizerswitches) and
is_real(resultdef) then
begin
if lt=realconstn then
begin
@ -1014,6 +1015,19 @@ implementation
result:=left.getcopy;
exit;
end;
end
{ optimize a/a and a-a }
else if (cs_opt_level2 in current_settings.optimizerswitches) and (nodetype in [slashn,subn]) and
left.isequal(right) and not(might_have_sideeffects(left,[mhs_exceptions])) then
begin
case nodetype of
subn:
result:=crealconstnode.create(0,left.resultdef);
slashn:
result:=crealconstnode.create(1,left.resultdef);
else
Internalerror(2020060901);
end;
end;
end;