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

+ CMPXCHG16BSupport

Browse Source
This commit is contained in:
florian 2024-02-28 22:18:05 +01:00
parent 0566580f15
commit 11f076f0e7
2 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/x86_64/cpu.pp
View File

@ -66,6 +66,7 @@ type
function ADXSupport: boolean;inline;
function SHASupport: boolean;inline;
function FMASupport: boolean;inline;
function CMPXCHG16BSupport: boolean;inline;
function POPCNTSupport: boolean;inline;
function LZCNTSupport: boolean;inline;
function SSE3Support: boolean;inline;
@ -103,6 +104,7 @@ type
_AVX512VLSupport,
_AVX512VBMISupport,
_AVX512VBMI2Support,
_CMPXCHG16BSupport,
_VAESSupport,
_VCLMULSupport,
_AVX512VNNISupport,
@ -272,6 +274,7 @@ type
is_sse3_cpu:=(cpuid1.ecx and $1)<>0;
_FMASupport:=_AVXSupport and ((cpuid1.ecx and $1000)<>0);
_CMPXCHG16BSupport:=(cpuid1.ecx and $2000)<>0;
_LZCNTSupport:=(CPUID($80000001).ecx and $20)<>0;
@ -442,6 +445,12 @@ type
end;
function CMPXCHG16BSupport: boolean;inline;
begin
result:=_CMPXCHG16BSupport;
end;
function POPCNTSupport: boolean;inline;
begin
result:=_POPCNTSupport;

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

@ -3,6 +3,9 @@
uses
cpu;
var
dummy16b : array[0..15] of byte;
begin
write('CMOV support: ');
if CMOVSupport then
@ -193,5 +196,19 @@ begin
end
else
writeln('no');
write('CMPXCHG16B support: ');
if CMPXCHG16BSupport then
begin
writeln('yes');
asm
{$ifdef FPC_PIC}
cmpxchg16b Dummy16b@GOTPCREL(%rip)
{$else FPC_PIC}
cmpxchg16b Dummy16b(%rip)
{$endif FPC_PIC}
end;
end
else
writeln('no');
end.