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

+ mask the shift/rotate count value in the rol/ror/sar inline nodes, before

Browse Source 
checking for 0, so that things like sar(int32,32) can be optimized to int32,
  just like sar(int32,0)

git-svn-id: trunk@36031 -
This commit is contained in:
nickysn 2017-05-01 11:45:23 +00:00
parent 217d39abf1
commit 29429cca3c
1 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/ninl.pas
View File

@ -1962,6 +1962,15 @@ implementation
assigned(tcallparanode(left).right) then
begin
vl:=tordconstnode(tcallparanode(left).left).value;
if forinline then
case resultdef.size of
1,2,4:
vl:=vl and byte($1f);
8:
vl:=vl and byte($3f);
else
internalerror(2013122302);
end;
if (tcallparanode(tcallparanode(left).right).left.nodetype=ordconstn) then
begin
def:=tcallparanode(tcallparanode(left).right).left.resultdef;
@ -2024,6 +2033,22 @@ implementation
assigned(tcallparanode(left).right) then
begin
vl:=tordconstnode(tcallparanode(left).left).value;
if forinline then
case resultdef.size of
{ unlike shifts, for rotates, when masking out the higher bits
of the rotate count, we go all the way down to byte, because
it doesn't matter, it produces the same result, since it's a rotate }
1:
vl:=vl and byte($07);
2:
vl:=vl and byte($0f);
4:
vl:=vl and byte($1f);
8:
vl:=vl and byte($3f);
else
internalerror(2013122302);
end;
if (tcallparanode(tcallparanode(left).right).left.nodetype=ordconstn) then
begin
def:=tcallparanode(tcallparanode(left).right).left.resultdef;