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

* patch by Rika to resolves #40531

Browse Source
This commit is contained in:
florian 2023-11-20 23:04:24 +01:00
parent b164817e18
commit d287788b57
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/i386/i386.inc
View File

@ -2131,7 +2131,7 @@ procedure fpc_cpucodeinit;
cpuid cpuid
movl %eax,_eax movl %eax,_eax
end; end;
if _eax>=7 then if (_eax>=7) and (_ecx_cpuid1 and $08000000<>0 {XGETBV support?}) then
begin begin
asm asm
xorl %ecx,%ecx xorl %ecx,%ecx