1------------------------------------------------------------------------------
2--                                                                          --
3--                 GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS                 --
4--                                                                          --
5--                   S Y S T E M . O S _ I N T E R F A C E                  --
6--                                                                          --
7--                                  B o d y                                 --
8--                                                                          --
9--                     Copyright (C) 2001-2019, AdaCore                     --
10--                                                                          --
11-- GNAT is free software;  you can  redistribute it  and/or modify it under --
12-- terms of the  GNU General Public License as published  by the Free Soft- --
13-- ware  Foundation;  either version 3,  or (at your option) any later ver- --
14-- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
15-- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
16-- or FITNESS FOR A PARTICULAR PURPOSE.                                     --
17--                                                                          --
18-- As a special exception under Section 7 of GPL version 3, you are granted --
19-- additional permissions described in the GCC Runtime Library Exception,   --
20-- version 3.1, as published by the Free Software Foundation.               --
21--                                                                          --
22-- You should have received a copy of the GNU General Public License and    --
23-- a copy of the GCC Runtime Library Exception along with this program;     --
24-- see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    --
25-- <http://www.gnu.org/licenses/>.                                          --
26--                                                                          --
27-- GNARL was developed by the GNARL team at Florida State University.       --
28-- Extensive contributions were provided by Ada Core Technologies, Inc.     --
29--                                                                          --
30------------------------------------------------------------------------------
31
32--  Version of System.OS_Interface for LynxOS-178 (POSIX Threads)
33
34pragma Polling (Off);
35--  Turn off polling, we do not want ATC polling to take place during tasking
36--  operations. It may cause infinite loops and other problems.
37
38package body System.OS_Interface is
39
40   ------------------
41   --  Current_CPU --
42   ------------------
43
44   function Current_CPU return Multiprocessors.CPU is
45   begin
46      --  No multiprocessor support, always return the first CPU Id
47
48      return Multiprocessors.CPU'First;
49   end Current_CPU;
50
51   --------------------
52   --  Get_Affinity  --
53   --------------------
54
55   function Get_Affinity (Id : Thread_Id) return Multiprocessors.CPU_Range is
56      pragma Unreferenced (Id);
57
58   begin
59      --  No multiprocessor support, always return Not_A_Specific_CPU
60
61      return Multiprocessors.Not_A_Specific_CPU;
62   end Get_Affinity;
63
64   ---------------
65   --  Get_CPU  --
66   ---------------
67
68   function Get_CPU  (Id : Thread_Id) return Multiprocessors.CPU is
69      pragma Unreferenced (Id);
70
71   begin
72      --  No multiprocessor support, always return the first CPU Id
73
74      return Multiprocessors.CPU'First;
75   end Get_CPU;
76
77   -------------------
78   -- Get_Page_Size --
79   -------------------
80
81   SC_PAGESIZE : constant := 17;
82   --  C macro to get pagesize value from sysconf
83
84   function sysconf (name : int) return long;
85   pragma Import (C, sysconf, "sysconf");
86
87   function Get_Page_Size return int is
88   begin
89      return int (sysconf (SC_PAGESIZE));
90   end Get_Page_Size;
91
92   -----------------
93   -- To_Duration --
94   -----------------
95
96   function To_Duration (TS : timespec) return Duration is
97   begin
98      return Duration (TS.tv_sec) + Duration (TS.tv_nsec) / 10#1#E9;
99   end To_Duration;
100
101   ------------------------
102   -- To_Target_Priority --
103   ------------------------
104
105   function To_Target_Priority
106     (Prio : System.Any_Priority) return Interfaces.C.int
107   is
108   begin
109      return Interfaces.C.int (Prio);
110   end To_Target_Priority;
111
112   -----------------
113   -- To_Timespec --
114   -----------------
115
116   function To_Timespec (D : Duration) return timespec is
117      S : time_t;
118      F : Duration;
119
120   begin
121      S := time_t (Long_Long_Integer (D));
122      F := D - Duration (S);
123
124      --  If F is negative due to a round-up, adjust for positive F value
125
126      if F < 0.0 then
127         S := S - 1;
128         F := F + 1.0;
129      end if;
130
131      return timespec'(tv_sec => S,
132                       tv_nsec => long (Long_Long_Integer (F * 10#1#E9)));
133   end To_Timespec;
134
135   -------------
136   -- sigwait --
137   -------------
138
139   function sigwait
140     (set :  access sigset_t;
141      sig :  access Signal)
142      return int
143   is
144      function sigwaitinfo
145        (set   : access sigset_t;
146         info  : System.Address) return Signal;
147      pragma Import (C, sigwaitinfo, "sigwaitinfo");
148
149   begin
150      sig.all := sigwaitinfo (set, Null_Address);
151
152      if sig.all = -1 then
153         return errno;
154      end if;
155
156      return 0;
157   end sigwait;
158
159   --------------------
160   -- Get_Stack_Base --
161   --------------------
162
163   function Get_Stack_Base (thread : pthread_t) return Address is
164      pragma Warnings (Off, thread);
165   begin
166      return Null_Address;
167   end Get_Stack_Base;
168
169   ------------------
170   -- pthread_init --
171   ------------------
172
173   procedure pthread_init is
174   begin
175      null;
176   end pthread_init;
177
178end System.OS_Interface;
179