paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 15:51:03 +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
resultreg : tregister;
asmop : tasmop;
@ -1865,8 +1868,8 @@ unit cgx86;
begin
internalerror(2010060101);
end
else if (shuffle=nil) then
asmop:=opmm2asmop[1,size,op]
else if shuffle=nil then
asmop:=opmm2asmop_full[op]
else if shufflescalar(shuffle) then
begin
asmop:=opmm2asmop[0,size,op];