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

* ensure that the SysCall unit is also usable when FPC_USE_LIBC is defined

Browse Source
This commit is contained in:
Sven/Sarah Barth 2024-01-04 22:22:35 +01:00
parent 543b341203
commit c11772deca
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/unix/syscall.pp
View File

@ -9,11 +9,22 @@ interface
{$i syscallh.inc} {$i syscallh.inc}
implementation implementation
{$ifdef FPC_USE_LIBC}
uses
unixtype;
{$endif}
{$ifdef FPC_HAS_SETSYSNR_INC} {$ifdef FPC_HAS_SETSYSNR_INC}
{$define FPC_COMPILING_SYSCALL_UNIT} {$define FPC_COMPILING_SYSCALL_UNIT}
{$I setsysnr.inc} {$I setsysnr.inc}
{$endif FPC_HAS_SETSYSNR_INC} {$endif FPC_HAS_SETSYSNR_INC}
{$ifdef FPC_USE_LIBC}
procedure seterrno(err:cint); external name 'FPC_SYS_SETERRNO';
{$I syscall.inc}
{$endif}
{$ifdef FPC_HAS_SETSYSNR_INC} {$ifdef FPC_HAS_SETSYSNR_INC}
begin begin
SetSyscallNumbers; SetSyscallNumbers;