Explorar o código

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

Sven/Sarah Barth hai 1 ano
pai
achega
c11772deca
Modificáronse 1 ficheiros con 11 adicións e 0 borrados
  1. 11 0
      rtl/unix/syscall.pp

+ 11 - 0
rtl/unix/syscall.pp

@@ -9,11 +9,22 @@ interface
 {$i syscallh.inc}
 
 implementation
+{$ifdef FPC_USE_LIBC}
+uses
+  unixtype;
+{$endif}
+
 {$ifdef FPC_HAS_SETSYSNR_INC}
 {$define FPC_COMPILING_SYSCALL_UNIT}
 {$I 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}
 begin
   SetSyscallNumbers;