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

bugfix external gnu-assembler - special handling suffix vcvtpd.. destination operand = xmm =>> suffix x, destination ymm or zmm =>> no suffix

Browse Source 
git-svn-id: branches/tg74/avx512-0037785@47145 -
This commit is contained in:
tg74 2020-10-20 08:00:39 +00:00
parent 4a6d21b1c9
commit d8fa3dd4ed
4 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/utils/mkx86ins.pp
View File

@ -320,6 +320,11 @@ begin
dec(attopcode[0]);
attsuffix:='attsufMM';
end;
'N' :
begin
dec(attopcode[0]);
attsuffix:='attsufMMX';
end;
'X' :
begin
dec(attopcode[0]);

10
compiler/x86/itcpugas.pas
View File

@ -29,7 +29,7 @@ interface
cgbase,cpubase;
type
TAttSuffix = (AttSufNONE,AttSufINT,AttSufFPU,AttSufFPUint,AttSufINTdual,AttSufMM);
TAttSuffix = (AttSufNONE,AttSufINT,AttSufFPU,AttSufFPUint,AttSufINTdual,AttSufMM,AttSufMMX);
const
{ include mnemonic strings }
@ -75,6 +75,10 @@ interface
att_sizemmsuffix : array[0..14] of topsize = (
S_NO,S_NO,S_NO,S_NO,S_NO,S_NO,{S_NO,}S_NO,S_NO,S_NO,S_NO,S_NO,S_NO,S_XMM,S_YMM,S_ZMM
);
att_sizemmxsuffix : array[0..14] of topsize = (
S_NO,S_NO,S_NO,S_NO,S_NO,S_NO,{S_NO,}S_NO,S_NO,S_NO,S_NO,S_NO,S_NO,S_XMM,S_NO,S_NO
);
{$else x86_64}
gas_opsize2str : array[topsize] of string[2] = ('',
'b','w','l','q','bw','bl','wl',
@ -103,6 +107,10 @@ interface
att_sizemmsuffix : array[0..12] of topsize = (
S_NO,S_NO,S_NO,S_NO,S_NO,S_NO,S_NO,S_NO,S_NO,S_NO,S_XMM,S_YMM,S_ZMM
);
att_sizemmxsuffix : array[0..12] of topsize = (
S_NO,S_NO,S_NO,S_NO,S_NO,S_NO,S_NO,S_NO,S_NO,S_NO,S_XMM,S_NO,S_NO
);
{$endif x86_64}

2
compiler/x86/rax86.pas
View File

@ -239,7 +239,7 @@ begin
;
end;
end
else if gas_needsuffix[opcode]=AttSufMM then
else if gas_needsuffix[opcode] in [AttSufMM, AttSufMMX] then
begin
if (opr.typ=OPR_Reference) then
begin

2
compiler/x86/rax86att.pas
View File

@ -1041,6 +1041,8 @@ Implementation
actopsize:=att_sizefpuintsuffix[sufidx]
else if gas_needsuffix[actopcode]=attsufMM then
actopsize:=att_sizemmsuffix[sufidx]
else if gas_needsuffix[actopcode]=attsufMMX then
actopsize:=att_sizemmXsuffix[sufidx]
else
actopsize:=att_sizesuffix[sufidx];
{ only accept suffix from the same category that the opcode belongs to }