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

fpc_cpuinit: add destroyed register lists to assembler blocks

Browse Source 
Otherwise the compiler assumes no registers are overwritten. And while the
regular code generator won't use register variables if assembler blocks are
present, LLVM is not restricted like that (and it could still cause issues
even with the default code generator in case PIC-rebased addresses are
accessed).
This commit is contained in:
Jonas Maebe 2025-03-23 20:51:14 +01:00
parent 0785652b55
commit 91667644f4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/x86_64/x86_64.inc
View File

@ -1636,7 +1636,7 @@ procedure fpc_cpuinit;
xorl %ecx,%ecx xorl %ecx,%ecx
cpuid cpuid
movl %ecx,cpuid1_ecx movl %ecx,cpuid1_ecx
end; end ['eax', 'ebx', 'ecx', 'edx'];
has_sse41_support:=boolean(cpuid1_ecx shr 19 and 1); has_sse41_support:=boolean(cpuid1_ecx shr 19 and 1);
if _eax>=7 then if _eax>=7 then
begin begin
@ -1645,7 +1645,7 @@ procedure fpc_cpuinit;
xorl %ecx,%ecx xorl %ecx,%ecx
cpuid cpuid
movl %ebx,cpuid7_ebx movl %ebx,cpuid7_ebx
end; end ['eax', 'ebx', 'ecx', 'edx'];
{$ifdef use_fast_repmovstos} {$ifdef use_fast_repmovstos}
fast_large_repmovstosb:=cpuid7_ebx and (1 shl 9)<>0; fast_large_repmovstosb:=cpuid7_ebx and (1 shl 9)<>0;
{$endif} {$endif}
@ -1656,7 +1656,7 @@ procedure fpc_cpuinit;
xorl %ecx,%ecx xorl %ecx,%ecx
.byte 0x0f,0x01,0xd0 { xgetbv } .byte 0x0f,0x01,0xd0 { xgetbv }
movl %eax,_eax movl %eax,_eax
end; end ['eax', 'rcx', 'edx'];
if (_eax and 6)=6 then if (_eax and 6)=6 then
begin begin
has_avx_support:=(cpuid1_ecx and $10000000)<>0; has_avx_support:=(cpuid1_ecx and $10000000)<>0;