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

Avoid double declaration of seterrno

Browse Source
This commit is contained in:
Pierre Muller 2024-01-07 14:40:04 +01:00
parent b1e1a107d3
commit 9dc75c3005
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/unix/syscall.pp
View File

@ -26,8 +26,9 @@ uses
{$endif FPC_HAS_SETSYSNR_INC} {$endif FPC_HAS_SETSYSNR_INC}
{$ifdef FPC_USE_LIBC} {$ifdef FPC_USE_LIBC}
{$if not declared(seterrno)}
procedure seterrno(err:cint); external name 'FPC_SYS_SETERRNO'; procedure seterrno(err:cint); external name 'FPC_SYS_SETERRNO';
{$endif}
{$I syscall.inc} {$I syscall.inc}
{$endif} {$endif}