comparison gcc/ada/libgnarl/s-osinte__solaris.ads @ 145:1830386684a0

gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 84e7813d76e9
children
comparison
equal deleted inserted replaced
131:84e7813d76e9 145:1830386684a0
5 -- S Y S T E M . O S _ I N T E R F A C E -- 5 -- S Y S T E M . O S _ I N T E R F A C E --
6 -- -- 6 -- --
7 -- S p e c -- 7 -- S p e c --
8 -- -- 8 -- --
9 -- Copyright (C) 1991-2017, Florida State University -- 9 -- Copyright (C) 1991-2017, Florida State University --
10 -- Copyright (C) 1995-2018, Free Software Foundation, Inc. -- 10 -- Copyright (C) 1995-2019, Free Software Foundation, Inc. --
11 -- -- 11 -- --
12 -- GNAT is free software; you can redistribute it and/or modify it under -- 12 -- GNAT is free software; you can redistribute it and/or modify it under --
13 -- terms of the GNU General Public License as published by the Free Soft- -- 13 -- terms of the GNU General Public License as published by the Free Soft- --
14 -- ware Foundation; either version 3, or (at your option) any later ver- -- 14 -- ware Foundation; either version 3, or (at your option) any later ver- --
15 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- 15 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
257 pragma Inline (To_Duration); 257 pragma Inline (To_Duration);
258 258
259 function To_Timespec (D : Duration) return timespec; 259 function To_Timespec (D : Duration) return timespec;
260 pragma Inline (To_Timespec); 260 pragma Inline (To_Timespec);
261 261
262 function sysconf (name : int) return long;
263 pragma Import (C, sysconf);
264
265 SC_NPROCESSORS_ONLN : constant := 15;
266
262 ------------- 267 -------------
263 -- Process -- 268 -- Process --
264 ------------- 269 -------------
265 270
266 type pid_t is private; 271 type pid_t is private;