paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-24 20:00:46 +01:00
Code Issues Packages Projects Releases Wiki Activity

* handle OP_XOR for a full mm register correctly in tcgx86.opmm_loc_reg

Browse Source 
git-svn-id: trunk@45348 -
This commit is contained in:
florian 2020-05-12 20:43:15 +00:00
parent 4beb4bf8b2
commit 7dbab3a78f
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/x86/cgx86.pas
View File

@ -1849,6 +1849,9 @@ unit cgx86;
) )
) )
); );
opmm2asmop_full : array[topcg] of tasmop = (
A_NOP,A_NOP,A_NOP,A_PAND,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_POR,A_NOP,A_NOP,A_NOP,A_NOP,A_PXOR,A_NOP,A_NOP
);
var var
resultreg : tregister; resultreg : tregister;
asmop : tasmop; asmop : tasmop;
@ -1865,8 +1868,8 @@ unit cgx86;
begin begin
internalerror(2010060101); internalerror(2010060101);
end end
else if (shuffle=nil) then else if shuffle=nil then
asmop:=opmm2asmop[1,size,op] asmop:=opmm2asmop_full[op]
else if shufflescalar(shuffle) then else if shufflescalar(shuffle) then
begin begin
asmop:=opmm2asmop[0,size,op]; asmop:=opmm2asmop[0,size,op];