Преглед изворни кода

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

Sven/Sarah Barth пре 1 година
родитељ
комит
c11772deca
1 измењених фајлова са 11 додато и 0 уклоњено
  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;