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

* more div n^2 optimization

Browse Source 
git-svn-id: trunk@8867 -
This commit is contained in:
florian 2007-10-20 18:02:55 +00:00
parent cc5e29fe01
commit c77267e01f
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/arm/narmmat.pas
View File

@ -66,7 +66,10 @@ implementation
begin begin
if (right.nodetype=ordconstn) and if (right.nodetype=ordconstn) and
(nodetype=divn) and (nodetype=divn) and
ispowerof2(tordconstnode(right).value,power) and (ispowerof2(tordconstnode(right).value,power) or
(tordconstnode(right).value=1) or
(tordconstnode(right).value=-1)
) and
not(is_64bitint(resultdef)) then not(is_64bitint(resultdef)) then
result:=nil result:=nil
else else