paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 20:33:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add code to includee new file to handle changing openbsd syscall numbers

Browse Source 
git-svn-id: trunk@28830 -
This commit is contained in:
pierre 2014-10-15 23:27:59 +00:00
parent 787fb75df8
commit 72a0dfecf0
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/bsd/system.pp
View File

@ -79,6 +79,10 @@ Implementation
{$I system.inc}
{$ifdef FPC_HAS_SETSYSNR_INC}
{$I setsysnr.inc}
{$endif FPC_HAS_SETSYSNR_INC}
{*****************************************************************************
Misc. System Dependent Functions
*****************************************************************************}
@ -301,7 +305,7 @@ begin
argv:= argvparam;
envp:= envpparam;
{$ifdef cpui386}
Set8087CW(Default8087CW);
Set8087CW(Default8087CW);
{$endif cpui386}
pascalmain; {run the pascal main program}
end;
@ -327,6 +331,11 @@ Begin
IsConsole := TRUE;
StackLength := CheckInitialStkLen(InitialStkLen);
StackBottom := Sptr - StackLength;
{$ifdef FPC_HAS_SETSYSNR_INC}
{ This procedure is needed for openbsd system which re-uses
the same syscall numbers depending on OS version }
SetSyscallNumbers;
{$endif FPC_HAS_SETSYSNR_INC}
{ Set up signals handlers (may be needed by init code to test cpu features) }
InstallSignals;