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

Fix syscall unit compilation for i386-linux using -dFPC_USE_LIBC

Browse Source
This commit is contained in:
Pierre Muller 2024-01-06 14:33:42 +01:00
parent 48c27aea1e
commit 7c9cf75418
3 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/linux/i386/syscall.inc
View File

@ -45,6 +45,7 @@ type
var var
psysinfo: LongWord = 0; psysinfo: LongWord = 0;
sysenter_supported : longint = 0;
procedure InitSyscallIntf; procedure InitSyscallIntf;
var var

5
rtl/linux/system.pp
View File

@ -77,11 +77,6 @@ property cmdline:PAnsiChar read get_cmdline;
implementation implementation
{*****************************************************************************} {*****************************************************************************}
{$if defined(CPUI386) and not defined(FPC_USE_LIBC)}
var
sysenter_supported: LongInt = 0;
{$endif}
const const
calculated_cmdline:PAnsiChar=nil; calculated_cmdline:PAnsiChar=nil;
{$ifdef FPC_HAS_INDIRECT_ENTRY_INFORMATION} {$ifdef FPC_HAS_INDIRECT_ENTRY_INFORMATION}

5
rtl/unix/syscall.pp
View File

@ -34,5 +34,10 @@ procedure seterrno(err:cint); external name 'FPC_SYS_SETERRNO';
{$ifdef FPC_HAS_SETSYSNR_INC} {$ifdef FPC_HAS_SETSYSNR_INC}
begin begin
SetSyscallNumbers; SetSyscallNumbers;
{$else}
{$if defined(linux) and defined(i386) and defined(FPC_USE_LIBC)}
begin
InitSyscallIntf;
{$endif}
{$endif FPC_HAS_SETSYSNR_INC} {$endif FPC_HAS_SETSYSNR_INC}
end. end.