Commit 1089a00a by Arnaud Charlet

Minor reformatting.

From-SVN: r177116
parent 5cc9353d
...@@ -120,12 +120,12 @@ package System.OS_Interface is ...@@ -120,12 +120,12 @@ package System.OS_Interface is
SIGLTHRDBG : constant := System.Linux.SIGLTHRDBG; SIGLTHRDBG : constant := System.Linux.SIGLTHRDBG;
SIGADAABORT : constant := SIGABRT; SIGADAABORT : constant := SIGABRT;
-- Change this if you want to use another signal for task abort. -- Change this to use another signal for task abort. SIGTERM might be a
-- SIGTERM might be a good one. -- good one.
type Signal_Set is array (Natural range <>) of Signal; type Signal_Set is array (Natural range <>) of Signal;
Unmasked : constant Signal_Set := ( Unmasked : constant Signal_Set := (
SIGTRAP, SIGTRAP,
-- To enable debugging on multithreaded applications, mark SIGTRAP to -- To enable debugging on multithreaded applications, mark SIGTRAP to
-- be kept unmasked. -- be kept unmasked.
...@@ -133,24 +133,22 @@ package System.OS_Interface is ...@@ -133,24 +133,22 @@ package System.OS_Interface is
SIGBUS, SIGBUS,
SIGTTIN, SIGTTOU, SIGTSTP, SIGTTIN, SIGTTOU, SIGTSTP,
-- Keep these three signals unmasked so that background processes -- Keep these three signals unmasked so that background processes and IO
-- and IO behaves as normal "C" applications -- behaves as normal "C" applications
SIGPROF, SIGPROF,
-- To avoid confusing the profiler -- To avoid confusing the profiler
SIGKILL, SIGSTOP, SIGKILL, SIGSTOP,
-- These two signals actually cannot be masked; -- These two signals actually can't be masked (POSIX won't allow it)
-- POSIX simply won't allow it.
SIGLTHRRES, SIGLTHRCAN, SIGLTHRDBG); SIGLTHRRES, SIGLTHRCAN, SIGLTHRDBG);
-- These three signals are used by GNU/LinuxThreads starting from -- These three signals are used by GNU/LinuxThreads starting from glibc
-- glibc 2.1 (future 2.2). -- 2.1 (future 2.2).
Reserved : constant Signal_Set := Reserved : constant Signal_Set := (SIGVTALRM, SIGUNUSED);
-- I am not sure why the following two signals are reserved. -- Not clear why these two signals are reserved. Perhaps they are not
-- I guess they are not supported by this version of GNU/Linux. -- supported by this version of GNU/Linux ???
(SIGVTALRM, SIGUNUSED);
type sigset_t is private; type sigset_t is private;
...@@ -268,10 +266,10 @@ package System.OS_Interface is ...@@ -268,10 +266,10 @@ package System.OS_Interface is
Ada.Unchecked_Conversion (System.Address, Thread_Body); Ada.Unchecked_Conversion (System.Address, Thread_Body);
type pthread_t is new unsigned_long; type pthread_t is new unsigned_long;
subtype Thread_Id is pthread_t; subtype Thread_Id is pthread_t;
function To_pthread_t is new Ada.Unchecked_Conversion function To_pthread_t is
(unsigned_long, pthread_t); new Ada.Unchecked_Conversion (unsigned_long, pthread_t);
type pthread_mutex_t is limited private; type pthread_mutex_t is limited private;
type pthread_cond_t is limited private; type pthread_cond_t is limited private;
...@@ -555,7 +553,7 @@ private ...@@ -555,7 +553,7 @@ private
type pthread_mutex_t is new System.Linux.pthread_mutex_t; type pthread_mutex_t is new System.Linux.pthread_mutex_t;
type unsigned_long_long_t is mod 2 ** 64; type unsigned_long_long_t is mod 2 ** 64;
-- Interfaces.C.Extensions isn't preelaborated so cannot be with-ed -- Interfaces.C.Extensions isn't preelaborated so cannot be with'ed
type pthread_cond_t is array (0 .. 47) of unsigned_char; type pthread_cond_t is array (0 .. 47) of unsigned_char;
pragma Convention (C, pthread_cond_t); pragma Convention (C, pthread_cond_t);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment