paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 07:19:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

bugfix OS32

Browse Source 
git-svn-id: branches/tg74/avx512@39719 -
This commit is contained in:
tg74 2018-09-10 06:18:48 +00:00
parent 1d9cbb4dcb
commit 8b9d7be8e5
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/x86/aasmcpu.pas
View File

@ -2214,7 +2214,7 @@ implementation
//(0, 16, 9, 8, 16, 32, 0, 0); //(0, 16, 9, 8, 16, 32, 0, 0);
(0, 16, 9, 8, 32, 32, 8, 0); //TG (0, 16, 9, 8, 32, 32, 8, 0); //TG
{$else x86_64} {$else x86_64}
(0, 8, 9, 8, 8, 32, 0, 0); (0, 8, 9, 8, 8, 32, 8, 0);
{$endif x86_64} {$endif x86_64}
var var
rs: tsuperregister; rs: tsuperregister;
@ -4680,6 +4680,11 @@ implementation
RegBCSTYMMSizeMask := 0; RegBCSTYMMSizeMask := 0;
RegBCSTZMMSizeMask := 0; RegBCSTZMMSizeMask := 0;
//TG TODO delete
if Asmop = A_VFMADD132PD then
begin
MRefInfo := msiUnkown;
end;
while (insentry^.opcode=AsmOp) do while (insentry^.opcode=AsmOp) do