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

+ store also ecx and edx after cpuid call with eax=7

Browse Source 
+ test VNNI and BIGALG instructions
This commit is contained in:
florian 2022-02-07 21:21:08 +01:00
parent 1e77901452
commit 79cf1dd9cf
3 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/i386/cpu.pp
View File

@ -253,6 +253,8 @@ unit cpu;
movl $0,%ecx
cpuid
movl %ebx,_ebx
movl %ecx,_ecx
movl %edx,_edx
popl %ebx
end;
_AVX2Support:=_AVXSupport and ((_ebx and $20)<>0);

2
rtl/x86_64/cpu.pp
View File

@ -228,6 +228,8 @@ unit cpu;
movl $0,%ecx
cpuid
movl %ebx,_ebx
movl %ecx,_ecx
movl %edx,_edx
end ['rax','rbx','rcx','rdx'];
_AVX2Support:=_AVXSupport and ((_ebx and $20)<>0);
_AVX512FSupport:=(_ebx and $10000)<>0;

8
tests/test/units/cpu/tcpu1.pp
View File

@ -40,8 +40,8 @@ begin
begin
writeln('yes');
asm
// vpxor %ymm0,%ymm0,%ymm0
// vaddpd %zmm0,%zmm0,%zmm0
vpxor %ymm0,%ymm0,%ymm0
vpdpbusd %zmm0,%zmm0,%zmm0
end;
end
else
@ -51,8 +51,8 @@ begin
begin
writeln('yes');
asm
//vpxor %ymm0,%ymm0,%ymm0
//vaddpd %zmm0,%zmm0,%zmm0
vpxor %ymm0,%ymm0,%ymm0
vpopcntb %zmm0,%zmm0
end;
end
else