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

* improve simplification of arithmetic nodes, based on a patch by Jeppe Johansen

Browse Source 
git-svn-id: trunk@25957 -
This commit is contained in:
florian 2013-11-06 21:10:13 +00:00
parent d4b6406e62
commit d39b9059d6
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/nadd.pas
View File

@ -553,15 +553,15 @@ implementation
exit;
end;
{ Add,Sub,Mul with constant 0, 1 or -1? }
{ Add,Sub,Mul,Or,Xor,Andn with constant 0, 1 or -1? }
if is_constintnode(right) and is_integer(left.resultdef) then
begin
if tordconstnode(right).value = 0 then
begin
case nodetype of
addn,subn:
addn,subn,orn,xorn:
result := left.getcopy;
muln:
andn,muln:
result:=cordconstnode.create(0,resultdef,true);
end;
end
@ -591,11 +591,11 @@ implementation
if tordconstnode(left).value = 0 then
begin
case nodetype of
addn:
addn,orn,xorn:
result := right.getcopy;
subn:
result := cunaryminusnode.create(right.getcopy);
muln:
andn,muln:
result:=cordconstnode.create(0,right.resultdef,true);
end;
end
@ -2767,7 +2767,7 @@ implementation
hp : tnode;
{$endif addstringopt}
rd,ld : tdef;
i : longint;
i,i2 : longint;
lt,rt : tnodetype;
{$ifdef cpuneedsmulhelper}
procname : string[32];
@ -2815,18 +2815,20 @@ implementation
(((left.nodetype = ordconstn) and
ispowerof2(tordconstnode(left).value,i)) or
((right.nodetype = ordconstn) and
ispowerof2(tordconstnode(right).value,i))) then
ispowerof2(tordconstnode(right).value,i2))) then
begin
if left.nodetype = ordconstn then
if ((left.nodetype = ordconstn) and
ispowerof2(tordconstnode(left).value,i)) then
begin
tordconstnode(left).value := i;
result := cshlshrnode.create(shln,right,left);
end
else
begin
tordconstnode(right).value := i;
tordconstnode(right).value := i2;
result := cshlshrnode.create(shln,left,right);
end;
result.resultdef := resultdef;
left := nil;
right := nil;
exit;