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

* check also for XGETBV support, resolves problem reported by Pierre

Browse Source
This commit is contained in:
florian 2023-11-20 22:54:55 +01:00
parent cbcc7c8d35
commit b164817e18
1 changed files with 19 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
rtl/x86_64/x86_64.inc
View File

@ -1250,7 +1250,7 @@ const
{$define FPC_SYSTEM_HAS_FPC_CPUINIT}
procedure fpc_cpuinit;
var
_eax,_ebx,_ecx : dword;
_eax,_ebx,cpuid1_ecx : dword;
begin
{ don't let libraries influence the FPU cw set by the host program }
if IsLibrary then
@ -1267,26 +1267,30 @@ procedure fpc_cpuinit;
if _eax>=7 then
begin
asm
movl $1,%eax
xorl %ecx,%ecx
.byte 0x0f,0x01,0xd0 { xgetbv }
movl %eax,_eax
cpuid
movl %ecx,cpuid1_ecx
end;
if (_eax and 6)=6 then
{ XGETBV support? }
if (cpuid1_ecx and $8000000)<>0 then
begin
asm
movl $1,%eax
xorl %ecx,%ecx
cpuid
movl %ecx,_ecx
.byte 0x0f,0x01,0xd0 { xgetbv }
movl %eax,_eax
end;
has_avx_support:=(_ecx and $10000000)<>0;
asm
movl $7,%eax
xorl %ecx,%ecx
cpuid
movl %ebx,_ebx
end;
has_avx2_support:=(_ebx and $20)<>0;
if (_eax and 6)=6 then
begin
has_avx_support:=(cpuid1_ecx and $10000000)<>0;
asm
movl $7,%eax
xorl %ecx,%ecx
cpuid
movl %ebx,_ebx
end;
has_avx2_support:=(_ebx and $20)<>0;
end;
end;
end;
end;