* synchronised with trunk till r29513blocks

git-svn-id: http://svn.freepascal.org/svn/fpc/branches/blocks@29516 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 10 insertions, 2 deletions

diff --git a/rtl/bsd/system.pp b/rtl/bsd/system.pp
index 634b2fbfe4..316840f57a 100644
--- a/rtl/bsd/system.pp
+++ b/rtl/bsd/system.pp
@@ -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;
 
@@ -345,7 +354,6 @@ Begin
   SetupCmdLine;
   { threading }
   InitSystemThreads;
-  initvariantmanager;
   { restore original signal handlers in case this is a library }
   if IsLibrary then
     RestoreOldSignalHandlers;