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

* changed check introduced in r19193 into the same method as other locations in nadd.pas do

Browse Source 
git-svn-id: trunk@19197 -
This commit is contained in:
florian 2011-09-23 20:34:10 +00:00
parent 258869c8f1
commit a5cdc0cdde
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/nadd.pas
View File

@ -860,9 +860,10 @@ 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 if
{$ifdef ARM} {$ifdef cpufpemu}
(current_settings.fputype<>fpu_soft) and (current_settings.fputype<>fpu_soft) and
{$endif ARM} not(cs_fp_emulation in current_settings.moduleswitches) and
{$endif cpufpemu}
(nodetype=muln) and (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