Browse Source

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

Sven/Sarah Barth 1 year ago
parent
commit
c11772deca
1 changed files with 11 additions and 0 deletions
  1. 11 0
      rtl/unix/syscall.pp

+ 11 - 0
rtl/unix/syscall.pp

@@ -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;