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

bugfix internal assembler vgather,vpgather,vscatter,vpscatter and register R13 vgatherdpd xmm0, [R13 + XMM0], xmm1

Browse Source 
git-svn-id: branches/tg74/fixes_3_2@48133 -
This commit is contained in:
tg74 2021-01-11 06:07:55 +00:00
parent 75f0b666c5
commit e7f8011ab6
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/x86/rax86.pas
View File

@ -1247,8 +1247,10 @@ begin
end;
OPR_REFERENCE:
begin
if (opcode<>A_XLAT) and not is_x86_string_op(opcode) then
if (not(MemRefInfo(opcode).MemRefSize in MemRefSizeInfoVMems)) and
(opcode<>A_XLAT) and not is_x86_string_op(opcode) then
optimize_ref(operands[i].opr.ref,true);
ai.loadref(i-1,operands[i].opr.ref);
if operands[i].size<>OS_NO then
begin
@ -1276,7 +1278,7 @@ begin
this applies only to i386, see tw16622}
if gas_needsuffix[opcode] in [attsufFPU,attsufFPUint] then
if (gas_needsuffix[opcode] in [attsufFPU,attsufFPUint]) or (MemRefInfo(opcode).ExistsSSEAVX) then
asize:=OT_BITS64
{$ifdef i386}
else