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

Fix compilation of riscvXX-linux targets with -dFPC_USE_LIBC

Browse Source
This commit is contained in:
Pierre Muller 2025-01-20 22:48:39 +01:00
parent 08f44aff2c
commit 7e5d9680c2
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/linux/linux.pp
View File

@ -643,7 +643,9 @@ Function futimens(fd: cint; const times:TTimespecArr):cint; {$ifdef FPC_USE_LIBC
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;
{$ifdef FPC_USE_LIBC}
cdecl; external name '__riscv_hwprobe';
{$endif}
{$endif defined(cpuriscv)}
implementation
@ -1012,14 +1014,15 @@ begin
{$endif USE_TIME64}
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)}
{$endif not FPC_USE_LIBC}
end.