paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 12:11:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

* don't do x*x -> sqr(x) optmization for arm softfloat

Browse Source 
git-svn-id: trunk@19193 -
This commit is contained in:
florian 2011-09-23 17:23:35 +00:00
parent f0c8563f2d
commit bba726ae78
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/nadd.pas
View File

@ -859,7 +859,11 @@ implementation
{ using sqr(x) for reals instead of x*x might reduces register pressure and/or { using sqr(x) for reals instead of x*x might reduces register pressure and/or
memory accesses while sqr(<real>) has no drawback } memory accesses while sqr(<real>) has no drawback }
if (nodetype=muln) and if
{$ifdef ARM}
(current_settings.fputype<>fpu_soft) and
{$endif ARM}
(nodetype=muln) and
is_real(left.resultdef) and is_real(right.resultdef) and is_real(left.resultdef) and is_real(right.resultdef) and
left.isequal(right) and left.isequal(right) and
not(might_have_sideeffects(left)) then not(might_have_sideeffects(left)) then