فهرست منبع

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

git-svn-id: trunk@19197 -
florian 14 سال پیش
والد
کامیت
a5cdc0cdde
1فایلهای تغییر یافته به همراه4 افزوده شده و 3 حذف شده
  1. 4 3
      compiler/nadd.pas

+ 4 - 3
compiler/nadd.pas

@@ -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}
-               (current_settings.fputype<>fpu_soft) and
-{$endif ARM}
+{$ifdef cpufpemu}
+               (current_settings.fputype<>fpu_soft) and 
+               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