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

+ support SHLX and SHRX in TX86AsmOptimizer.RegLoadedWithNewValue, resolves #39178

Browse Source 
git-svn-id: trunk@49583 -
This commit is contained in:
florian 2021-07-07 20:28:04 +00:00
parent 5ca73c61f4
commit 86ac03e07e
3 changed files with 65 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -18882,6 +18882,7 @@ tests/webtbs/tw3899.pp svneol=native#text/plain
tests/webtbs/tw3900.pp svneol=native#text/plain
tests/webtbs/tw39030.pp svneol=native#text/pascal
tests/webtbs/tw3913.pp svneol=native#text/plain
tests/webtbs/tw39178.pp svneol=native#text/pascal
tests/webtbs/tw3930.pp svneol=native#text/plain
tests/webtbs/tw3931a.pp svneol=native#text/plain
tests/webtbs/tw3939.pp svneol=native#text/plain

7
compiler/x86/aoptx86.pas
View File

@ -1339,6 +1339,13 @@ unit aoptx86;
(p.opcode = A_FNSTSW)) and
(p.oper[0]^.typ=top_reg) and
Reg1WriteOverwritesReg2Entirely(p.oper[0]^.reg,reg)) or
(((p.opcode = A_SHRX) or (p.opcode = A_SHLX)) and
(p.ops=3) and
(Reg1WriteOverwritesReg2Entirely(p.oper[2]^.reg,reg)) and
(((p.oper[1]^.typ=top_reg) and not(Reg1ReadDependsOnReg2(p.oper[1]^.reg,reg))) or
((p.oper[1]^.typ=top_ref) and not(RegInRef(reg,p.oper[1]^.ref^)))) and
(((p.oper[0]^.typ=top_reg) and not(Reg1ReadDependsOnReg2(p.oper[0]^.reg,reg))) or
((p.oper[0]^.typ=top_ref) and not(RegInRef(reg,p.oper[0]^.ref^))))) or
(((p.opcode = A_XOR) or (p.opcode = A_SUB) or (p.opcode = A_SBB)) and
(p.oper[0]^.typ=top_reg) and (p.oper[1]^.typ=top_reg) and
(p.oper[0]^.reg=p.oper[1]^.reg) and

57
tests/webtbs/tw39178.pp Normal file
View File

@ -0,0 +1,57 @@
{ %cpu=x86_64,i386 }
{ %opt=-Cpcoreavx2 -O3 }
{$mode objfpc} {$h+} {$modeswitch advancedrecords} {$modeswitch duplicatelocals}
uses
cpu;
type
UintVec3 = record
x, y, z: uint32;
class function Make(x, y, z: uint32): UintVec3; static;
function ToString: string;
class operator shr(const a: UintVec3; b: uint32): UintVec3;
class operator div(const a: UintVec3; b: uint32): UintVec3;
class operator =(const a,b: UintVec3): Boolean;
end;
class function UintVec3.Make(x, y, z: uint32): UintVec3;
begin
result.x := x;
result.y := y;
result.z := z;
end;
function UintVec3.ToString: string;
begin
WriteStr(result, x, ', ', y, ', ', z);
end;
class operator UintVec3.shr(const a: UintVec3; b: uint32): UintVec3;
begin
result.x := a.x shr b;
result.y := a.y shr b;
result.z := a.z shr b;
end;
class operator UintVec3.div(const a: UintVec3; b: uint32): UintVec3;
begin
result.x := a.x div b;
result.y := a.y div b;
result.z := a.z div b;
end;
class operator UintVec3.=(const a,b: UintVec3): Boolean;
begin
result := (a.x = b.x) and
(a.y = b.y) and
(a.z = b.z);
end;
begin
if BMI2Support then
begin
writeln('div 2: ', (UintVec3.Make(100, 50, 30) div 2).ToString);
writeln('shr 1: ', (UintVec3.Make(100, 50, 30) shr 1).ToString);
if not((UintVec3.Make(100, 50, 30) div 2)=(UintVec3.Make(100, 50, 30) shr 1)) then
halt(1);
writeln('ok');
end;
end.