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

* More complex uses of the pruning methods in TAddNode.Simplify

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2022-11-25 02:46:56 +00:00 committed by FPK
parent 9d8fd6d55e
commit a5702d89e8
1 changed files with 8 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/nadd.pas
View File

@ -1805,20 +1805,16 @@ implementation
tshlshrnode(left).left.resultdef.size*8-tordconstnode(tshlshrnode(right).right).value) then
begin
result:=cinlinenode.create(in_ror_x_y,false,
ccallparanode.create(tshlshrnode(left).right,
ccallparanode.create(tshlshrnode(left).left,nil)));
tshlshrnode(left).left:=nil;
tshlshrnode(left).right:=nil;
ccallparanode.create(tshlshrnode(left).PruneKeepRight(),
ccallparanode.create(tshlshrnode(left).PruneKeepLeft(),nil)));
exit;
end
else if (tordconstnode(tshlshrnode(right).right).value=
tshlshrnode(left).left.resultdef.size*8-tordconstnode(tshlshrnode(left).right).value) then
begin
result:=cinlinenode.create(in_rol_x_y,false,
ccallparanode.create(tshlshrnode(right).right,
ccallparanode.create(tshlshrnode(left).left,nil)));
tshlshrnode(left).left:=nil;
tshlshrnode(right).right:=nil;
ccallparanode.create(tshlshrnode(right).PruneKeepRight(),
ccallparanode.create(tshlshrnode(left).PruneKeepLeft(),nil)));
exit;
end;
end;
@ -1835,10 +1831,8 @@ implementation
then
begin
result:=cinlinenode.create(in_rol_x_y,false,
ccallparanode.create(tshlshrnode(left).right,
ccallparanode.create(tshlshrnode(left).left,nil)));
tshlshrnode(left).left:=nil;
tshlshrnode(left).right:=nil;
ccallparanode.create(tshlshrnode(left).PruneKeepRight(),
ccallparanode.create(tshlshrnode(left).PruneKeepLeft(),nil)));
exit;
end
else if (tordconstnode(tshlshrnode(right).right).value=
@ -1846,10 +1840,8 @@ implementation
then
begin
result:=cinlinenode.create(in_ror_x_y,false,
ccallparanode.create(tshlshrnode(right).right,
ccallparanode.create(tshlshrnode(left).left,nil)));
tshlshrnode(left).left:=nil;
tshlshrnode(right).right:=nil;
ccallparanode.create(tshlshrnode(right).PruneKeepRight(),
ccallparanode.create(tshlshrnode(left).PruneKeepLeft(),nil)));
exit;
end;
end;