paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 07:49:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ support for RiscV hwprobe syscall

Browse Source 
+ test
This commit is contained in:
florian 2025-01-19 18:42:04 +01:00
parent a4ca9f5357
commit b1c2023af1
2 changed files with 152 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

99
rtl/linux/linux.pp
View File

@ -554,6 +554,98 @@ Type
Function utimensat(dfd: cint; path:PAnsiChar;const times:TTimespecArr;flags:cint):cint; {$ifdef FPC_USE_LIBC} cdecl; external name 'utimensat'; {$ENDIF}
Function futimens(fd: cint; const times:TTimespecArr):cint; {$ifdef FPC_USE_LIBC} cdecl; external name 'futimens'; {$ENDIF}
{$if defined(cpuriscv)}
type
priscv_hwprobe = ^triscv_hwprobe;
triscv_hwprobe = record
key : __s64;
value : __u64;
end;
const
RISCV_HWPROBE_KEY_MVENDORID = 0;
RISCV_HWPROBE_KEY_MARCHID = 1;
RISCV_HWPROBE_KEY_MIMPID = 2;
RISCV_HWPROBE_KEY_BASE_BEHAVIOR = 3;
RISCV_HWPROBE_BASE_BEHAVIOR_IMA = 1 shl 0;
RISCV_HWPROBE_KEY_IMA_EXT_0 = 4;
RISCV_HWPROBE_IMA_FD = 1 shl 0;
RISCV_HWPROBE_IMA_C = 1 shl 1;
RISCV_HWPROBE_IMA_V = 1 shl 2;
RISCV_HWPROBE_EXT_ZBA = 1 shl 3;
RISCV_HWPROBE_EXT_ZBB = 1 shl 4;
RISCV_HWPROBE_EXT_ZBS = 1 shl 5;
RISCV_HWPROBE_EXT_ZICBOZ = 1 shl 6;
RISCV_HWPROBE_EXT_ZBC = 1 shl 7;
RISCV_HWPROBE_EXT_ZBKB = 1 shl 8;
RISCV_HWPROBE_EXT_ZBKC = 1 shl 9;
RISCV_HWPROBE_EXT_ZBKX = 1 shl 10;
RISCV_HWPROBE_EXT_ZKND = 1 shl 11;
RISCV_HWPROBE_EXT_ZKNE = 1 shl 12;
RISCV_HWPROBE_EXT_ZKNH = 1 shl 13;
RISCV_HWPROBE_EXT_ZKSED = 1 shl 14;
RISCV_HWPROBE_EXT_ZKSH = 1 shl 15;
RISCV_HWPROBE_EXT_ZKT = 1 shl 16;
RISCV_HWPROBE_EXT_ZVBB = 1 shl 17;
RISCV_HWPROBE_EXT_ZVBC = 1 shl 18;
RISCV_HWPROBE_EXT_ZVKB = 1 shl 19;
RISCV_HWPROBE_EXT_ZVKG = 1 shl 20;
RISCV_HWPROBE_EXT_ZVKNED = 1 shl 21;
RISCV_HWPROBE_EXT_ZVKNHA = 1 shl 22;
RISCV_HWPROBE_EXT_ZVKNHB = 1 shl 23;
RISCV_HWPROBE_EXT_ZVKSED = 1 shl 24;
RISCV_HWPROBE_EXT_ZVKSH = 1 shl 25;
RISCV_HWPROBE_EXT_ZVKT = 1 shl 26;
RISCV_HWPROBE_EXT_ZFH = 1 shl 27;
RISCV_HWPROBE_EXT_ZFHMIN = 1 shl 28;
RISCV_HWPROBE_EXT_ZIHINTNTL = 1 shl 29;
RISCV_HWPROBE_EXT_ZVFH = 1 shl 30;
RISCV_HWPROBE_EXT_ZVFHMIN = 1 shl 31;
RISCV_HWPROBE_EXT_ZFA = 1 shl 32;
RISCV_HWPROBE_EXT_ZTSO = 1 shl 33;
RISCV_HWPROBE_EXT_ZACAS = 1 shl 34;
RISCV_HWPROBE_EXT_ZICOND = 1 shl 35;
RISCV_HWPROBE_EXT_ZIHINTPAUSE = 1 shl 36;
RISCV_HWPROBE_EXT_ZVE32X = 1 shl 37;
RISCV_HWPROBE_EXT_ZVE32F = 1 shl 38;
RISCV_HWPROBE_EXT_ZVE64X = 1 shl 39;
RISCV_HWPROBE_EXT_ZVE64F = 1 shl 40;
RISCV_HWPROBE_EXT_ZVE64D = 1 shl 41;
RISCV_HWPROBE_EXT_ZIMOP = 1 shl 42;
RISCV_HWPROBE_EXT_ZCA = 1 shl 43;
RISCV_HWPROBE_EXT_ZCB = 1 shl 44;
RISCV_HWPROBE_EXT_ZCD = 1 shl 45;
RISCV_HWPROBE_EXT_ZCF = 1 shl 46;
RISCV_HWPROBE_EXT_ZCMOP = 1 shl 47;
RISCV_HWPROBE_EXT_ZAWRS = 1 shl 48;
RISCV_HWPROBE_EXT_SUPM = 1 shl 49;
RISCV_HWPROBE_KEY_CPUPERF_0 = 5;
RISCV_HWPROBE_MISALIGNED_UNKNOWN = 0 shl 0;
RISCV_HWPROBE_MISALIGNED_EMULATED = 1 shl 0;
RISCV_HWPROBE_MISALIGNED_SLOW = 2 shl 0;
RISCV_HWPROBE_MISALIGNED_FAST = 3 shl 0;
RISCV_HWPROBE_MISALIGNED_UNSUPPORTED = 4 shl 0;
RISCV_HWPROBE_MISALIGNED_MASK = 7 shl 0;
RISCV_HWPROBE_KEY_ZICBOZ_BLOCK_SIZE = 6;
RISCV_HWPROBE_KEY_HIGHEST_VIRT_ADDRESS = 7;
RISCV_HWPROBE_KEY_TIME_CSR_FREQ = 8;
RISCV_HWPROBE_KEY_MISALIGNED_SCALAR_PERF = 9;
RISCV_HWPROBE_MISALIGNED_SCALAR_UNKNOWN = 0;
RISCV_HWPROBE_MISALIGNED_SCALAR_EMULATED = 1;
RISCV_HWPROBE_MISALIGNED_SCALAR_SLOW = 2;
RISCV_HWPROBE_MISALIGNED_SCALAR_FAST = 3;
RISCV_HWPROBE_MISALIGNED_SCALAR_UNSUPPORTED = 4;
RISCV_HWPROBE_KEY_MISALIGNED_VECTOR_PERF = 10;
RISCV_HWPROBE_MISALIGNED_VECTOR_UNKNOWN = 0;
RISCV_HWPROBE_MISALIGNED_VECTOR_SLOW = 2;
RISCV_HWPROBE_MISALIGNED_VECTOR_FAST = 3;
RISCV_HWPROBE_MISALIGNED_VECTOR_UNSUPPORTED = 4;
RISCV_HWPROBE_WHICH_CPUS = 1 shl 0;
function riscv_hwprobe(pairs:priscv_hwprobe; pair_count:size_t; cpusetsize:size_t; cpus:pdword; flags:dword):longint;
{$endif defined(cpuriscv)}
implementation
@ -922,5 +1014,12 @@ end;
{$endif not FPC_USE_LIBC}
{$if defined(cpuriscv)}
function riscv_hwprobe(pairs:priscv_hwprobe; pair_count:size_t; cpusetsize:size_t; cpus:pdword; flags:dword):longint;
begin
riscv_hwprobe:=do_syscall(syscall_nr_riscv_hwprobe,TSysParam(pairs),TSysParam(pair_count),TSysParam(cpusetsize),TSysParam(cpus),TSysParam(flags));
end;
{$endif defined(cpuriscv)}
end.

53
tests/test/units/linux/thwprobe.pp Normal file
View File

@ -0,0 +1,53 @@
{ %target=linux }
{ %cpu=riscv32,riscv64 }
uses
linux,sysutils;
var
ariscv_hwprobe: triscv_hwprobe;
begin
ariscv_hwprobe.key:=RISCV_HWPROBE_KEY_IMA_EXT_0;
riscv_hwprobe(@ariscv_hwprobe,1,0,nil,0);
writeln('Raw key value returned by RISCV_HWPROBE_KEY_IMA_EXT_0: %',Binstr(ariscv_hwprobe.value,64));
if (ariscv_hwprobe.value and RISCV_HWPROBE_IMA_FD)<>0 then
writeln('F and D extensions supported')
else
writeln('F and D extensions not supported');
if (ariscv_hwprobe.value and RISCV_HWPROBE_IMA_V)<>0 then
writeln('V extension supported')
else
writeln('V extension supported');
if (ariscv_hwprobe.value and RISCV_HWPROBE_EXT_ZBA)<>0 then
writeln('ZBA extension supported')
else
writeln('ZBA extension not supported');
if (ariscv_hwprobe.value and RISCV_HWPROBE_EXT_ZBB)<>0 then
writeln('ZBB extension supported')
else
writeln('ZBB extension not supported');
if (ariscv_hwprobe.value and RISCV_HWPROBE_EXT_ZBS)<>0 then
writeln('ZBS extension supported')
else
writeln('ZBS extension not supported');
if (ariscv_hwprobe.value and RISCV_HWPROBE_EXT_ZICBOZ)<>0 then
writeln('ZICBOZ extension supported')
else
writeln('ZICBOZ extension not supported');
if (ariscv_hwprobe.value and RISCV_HWPROBE_EXT_ZBC)<>0 then
writeln('ZBC extension supported')
else
writeln('ZBC extension not supported');
if (ariscv_hwprobe.value and RISCV_HWPROBE_EXT_ZBKB)<>0 then
writeln('ZBKB extension supported')
else
writeln('ZBKB extension supported');
end.