From 1dd5ad55ebf62c67008e1644fc03412c4aeff810 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 15 Feb 2006 10:29:34 +0100 Subject: [PATCH] s-osinte-darwin.adb, [...] (sigset_t_ptr): Removed, replaced by anonymous access type. * s-osinte-darwin.adb, s-osinte-darwin.ads, s-osinte-vxworks.ads, s-osinte-solaris.ads, s-osinte-linux.ads, s-osinte-freebsd.ads, s-osinte-solaris-posix.ads, s-osinte-lynxos-3.ads, s-osinte-lynxos.ads, s-osinte-tru64.ads, s-osinte-aix.ads, s-osinte-irix.ads, s-osinte-hpux-dce.ads, s-osinte-linux-hppa.ads, s-osinte-linux-alpha.ads, s-inmaop-posix.adb (sigset_t_ptr): Removed, replaced by anonymous access type. (pthread_sigmask): Now take an access sigset_t * s-osinte-hpux.ads: Ditto. (pthread_mutex_t, pthread_cond_t): Update definitions to support properly 32 and 64 bit ABIs. From-SVN: r111025 --- gcc/ada/s-inmaop-posix.adb | 20 +++++-------------- gcc/ada/s-osinte-aix.ads | 8 +++----- gcc/ada/s-osinte-darwin.adb | 4 +--- gcc/ada/s-osinte-darwin.ads | 8 +++----- gcc/ada/s-osinte-freebsd.ads | 8 +++----- gcc/ada/s-osinte-hpux-dce.ads | 8 +++----- gcc/ada/s-osinte-hpux.ads | 31 +++++++++++++++++------------- gcc/ada/s-osinte-irix.ads | 7 +++---- gcc/ada/s-osinte-linux-alpha.ads | 8 +++----- gcc/ada/s-osinte-linux-hppa.ads | 8 +++----- gcc/ada/s-osinte-linux.ads | 8 +++----- gcc/ada/s-osinte-lynxos-3.ads | 8 +++----- gcc/ada/s-osinte-lynxos.ads | 8 +++----- gcc/ada/s-osinte-solaris-posix.ads | 8 +++----- gcc/ada/s-osinte-solaris.ads | 12 +++++------- gcc/ada/s-osinte-tru64.ads | 8 +++----- gcc/ada/s-osinte-vxworks.ads | 8 +++----- 17 files changed, 68 insertions(+), 102 deletions(-) diff --git a/gcc/ada/s-inmaop-posix.adb b/gcc/ada/s-inmaop-posix.adb index 2dab2de08ab..486795c858a 100644 --- a/gcc/ada/s-inmaop-posix.adb +++ b/gcc/ada/s-inmaop-posix.adb @@ -8,7 +8,7 @@ -- B o d y -- -- -- -- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2005, AdaCore -- +-- Copyright (C) 1995-2006, AdaCore -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -48,18 +48,11 @@ with System.Storage_Elements; -- used for To_Address -- Integer_Address -with Unchecked_Conversion; - package body System.Interrupt_Management.Operations is use Interfaces.C; use System.OS_Interface; - type Interrupt_Mask_Ptr is access all Interrupt_Mask; - - function "+" is new - Unchecked_Conversion (Interrupt_Mask_Ptr, sigset_t_ptr); - --------------------- -- Local Variables -- --------------------- @@ -111,10 +104,9 @@ package body System.Interrupt_Management.Operations is ------------------------ procedure Set_Interrupt_Mask (Mask : access Interrupt_Mask) is - Result : Interfaces.C.int; + Result : Interfaces.C.int; begin - Result := pthread_sigmask - (SIG_SETMASK, +Interrupt_Mask_Ptr (Mask), null); + Result := pthread_sigmask (SIG_SETMASK, Mask, null); pragma Assert (Result = 0); end Set_Interrupt_Mask; @@ -124,8 +116,7 @@ package body System.Interrupt_Management.Operations is is Result : Interfaces.C.int; begin - Result := pthread_sigmask - (SIG_SETMASK, +Interrupt_Mask_Ptr (Mask), +Interrupt_Mask_Ptr (OMask)); + Result := pthread_sigmask (SIG_SETMASK, Mask, OMask); pragma Assert (Result = 0); end Set_Interrupt_Mask; @@ -136,8 +127,7 @@ package body System.Interrupt_Management.Operations is procedure Get_Interrupt_Mask (Mask : access Interrupt_Mask) is Result : Interfaces.C.int; begin - Result := pthread_sigmask - (SIG_SETMASK, null, +Interrupt_Mask_Ptr (Mask)); + Result := pthread_sigmask (SIG_SETMASK, null, Mask); pragma Assert (Result = 0); end Get_Interrupt_Mask; diff --git a/gcc/ada/s-osinte-aix.ads b/gcc/ada/s-osinte-aix.ads index fcc7c245d08..527c8ae95e8 100644 --- a/gcc/ada/s-osinte-aix.ads +++ b/gcc/ada/s-osinte-aix.ads @@ -7,7 +7,7 @@ -- S p e c -- -- -- -- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1995-2006, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -324,12 +324,10 @@ package System.OS_Interface is sig : Signal) return int; pragma Import (C, pthread_kill, "pthread_kill"); - type sigset_t_ptr is access all sigset_t; - function pthread_sigmask (how : int; - set : sigset_t_ptr; - oset : sigset_t_ptr) return int; + set : access sigset_t; + oset : access sigset_t) return int; pragma Import (C, pthread_sigmask, "sigthreadmask"); -------------------------- diff --git a/gcc/ada/s-osinte-darwin.adb b/gcc/ada/s-osinte-darwin.adb index 6423877bdf2..3ccd8c2741c 100644 --- a/gcc/ada/s-osinte-darwin.adb +++ b/gcc/ada/s-osinte-darwin.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1999-2005 Free Software Foundation, Inc. -- +-- Copyright (C) 1999-2006 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -37,8 +37,6 @@ pragma Polling (Off); -- Turn off polling, we do not want ATC polling to take place during -- tasking operations. It causes infinite loops and other problems. -with Interfaces.C; - package body System.OS_Interface is use Interfaces.C; diff --git a/gcc/ada/s-osinte-darwin.ads b/gcc/ada/s-osinte-darwin.ads index ba4572e988d..e2ef1f1bca5 100644 --- a/gcc/ada/s-osinte-darwin.ads +++ b/gcc/ada/s-osinte-darwin.ads @@ -7,7 +7,7 @@ -- S p e c -- -- -- -- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1995-2006, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -302,12 +302,10 @@ package System.OS_Interface is function pthread_kill (thread : pthread_t; sig : Signal) return int; pragma Import (C, pthread_kill, "pthread_kill"); - type sigset_t_ptr is access all sigset_t; - function pthread_sigmask (how : int; - set : sigset_t_ptr; - oset : sigset_t_ptr) return int; + set : access sigset_t; + oset : access sigset_t) return int; pragma Import (C, pthread_sigmask, "pthread_sigmask"); -------------------------- diff --git a/gcc/ada/s-osinte-freebsd.ads b/gcc/ada/s-osinte-freebsd.ads index 81a91865645..35a3871c50a 100644 --- a/gcc/ada/s-osinte-freebsd.ads +++ b/gcc/ada/s-osinte-freebsd.ads @@ -7,7 +7,7 @@ -- S p e c -- -- -- -- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1995-2006, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -353,12 +353,10 @@ package System.OS_Interface is sig : Signal) return int; pragma Import (C, pthread_kill, "pthread_kill"); - type sigset_t_ptr is access all sigset_t; - function pthread_sigmask (how : int; - set : sigset_t_ptr; - oset : sigset_t_ptr) return int; + set : access sigset_t; + oset : access sigset_t) return int; pragma Import (C, pthread_sigmask, "pthread_sigmask"); -------------------------- diff --git a/gcc/ada/s-osinte-hpux-dce.ads b/gcc/ada/s-osinte-hpux-dce.ads index be0b418e6a0..1b59690c161 100644 --- a/gcc/ada/s-osinte-hpux-dce.ads +++ b/gcc/ada/s-osinte-hpux-dce.ads @@ -7,7 +7,7 @@ -- S p e c -- -- -- -- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1995-2006, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -287,12 +287,10 @@ package System.OS_Interface is pragma Inline (pthread_kill); -- DCE_THREADS doesn't have pthread_kill - type sigset_t_ptr is access all sigset_t; - function pthread_sigmask (how : int; - set : sigset_t_ptr; - oset : sigset_t_ptr) return int; + set : access sigset_t; + oset : access sigset_t) return int; -- DCE THREADS does not have pthread_sigmask. Instead, it uses -- sigprocmask to do the signal handling when the thread library is -- sucked in. diff --git a/gcc/ada/s-osinte-hpux.ads b/gcc/ada/s-osinte-hpux.ads index 9b911a10848..425f8d2fbb3 100644 --- a/gcc/ada/s-osinte-hpux.ads +++ b/gcc/ada/s-osinte-hpux.ads @@ -6,8 +6,8 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1991-1994, Florida State University -- +-- Copyright (C) 1995-2006, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -320,12 +320,10 @@ package System.OS_Interface is sig : Signal) return int; pragma Import (C, pthread_kill, "pthread_kill"); - type sigset_t_ptr is access all sigset_t; - function pthread_sigmask (how : int; - set : sigset_t_ptr; - oset : sigset_t_ptr) return int; + set : access sigset_t; + oset : access sigset_t) return int; pragma Import (C, pthread_sigmask, "pthread_sigmask"); -------------------------- @@ -526,29 +524,36 @@ private type int_array is array (Natural range <>) of int; type pthread_mutex_t is record - m_short : short_array (0 .. 1); - m_int : int; - m_int1 : int_array (0 .. 3); - m_pad : int; -- needed for 32 bit ABI, but *not* for 64 bit - m_ptr : System.Address; + m_short : short_array (0 .. 1); + m_int : int; + m_int1 : int_array (0 .. 3); + m_pad : int; + + m_ptr : int; + -- actually m_ptr is a void*, and on 32 bit ABI, m_pad is added so that + -- this field takes 64 bits. On 64 bit ABI, m_pad is gone, and m_ptr is + -- a 64 bit void*. Assume int'Size = 32. + m_int2 : int_array (0 .. 1); m_int3 : int_array (0 .. 3); m_short2 : short_array (0 .. 1); m_int4 : int_array (0 .. 4); m_int5 : int_array (0 .. 1); end record; + for pthread_mutex_t'Alignment use System.Address'Alignment; pragma Convention (C, pthread_mutex_t); type pthread_cond_t is record c_short : short_array (0 .. 1); c_int : int; c_int1 : int_array (0 .. 3); - m_pad : int; -- needed for 32 bit ABI, but *not* for 64 bit - m_ptr : System.Address; + m_pad : int; + m_ptr : int; -- see comment in pthread_mutex_t c_int2 : int_array (0 .. 1); c_int3 : int_array (0 .. 1); c_int4 : int_array (0 .. 1); end record; + for pthread_cond_t'Alignment use System.Address'Alignment; pragma Convention (C, pthread_cond_t); type pthread_key_t is new int; diff --git a/gcc/ada/s-osinte-irix.ads b/gcc/ada/s-osinte-irix.ads index 88bb5007c46..fedca74bdc5 100644 --- a/gcc/ada/s-osinte-irix.ads +++ b/gcc/ada/s-osinte-irix.ads @@ -7,7 +7,7 @@ -- S p e c -- -- -- -- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1995-2006, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -127,7 +127,6 @@ package System.OS_Interface is SIGRTMAX : constant := 64; -- Posix 1003.1b signals type sigset_t is private; - type sigset_t_ptr is access all sigset_t; function sigaddset (set : access sigset_t; sig : Signal) return int; pragma Import (C, sigaddset, "sigaddset"); @@ -284,8 +283,8 @@ package System.OS_Interface is function pthread_sigmask (how : int; - set : sigset_t_ptr; - oset : sigset_t_ptr) return int; + set : access sigset_t; + oset : access sigset_t) return int; pragma Import (C, pthread_sigmask, "pthread_sigmask"); -------------------------- diff --git a/gcc/ada/s-osinte-linux-alpha.ads b/gcc/ada/s-osinte-linux-alpha.ads index ece57dc6936..f5e21823918 100644 --- a/gcc/ada/s-osinte-linux-alpha.ads +++ b/gcc/ada/s-osinte-linux-alpha.ads @@ -7,7 +7,7 @@ -- S p e c -- -- -- -- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1995-2006, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -309,12 +309,10 @@ package System.OS_Interface is function pthread_kill (thread : pthread_t; sig : Signal) return int; pragma Import (C, pthread_kill, "pthread_kill"); - type sigset_t_ptr is access all sigset_t; - function pthread_sigmask (how : int; - set : sigset_t_ptr; - oset : sigset_t_ptr) return int; + set : access sigset_t; + oset : access sigset_t) return int; pragma Import (C, pthread_sigmask, "pthread_sigmask"); -------------------------- diff --git a/gcc/ada/s-osinte-linux-hppa.ads b/gcc/ada/s-osinte-linux-hppa.ads index 40f0d073af5..2a033f1f9aa 100644 --- a/gcc/ada/s-osinte-linux-hppa.ads +++ b/gcc/ada/s-osinte-linux-hppa.ads @@ -8,7 +8,7 @@ -- (GNU/Linux-HPPA Version) -- -- -- -- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1995-2006, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -316,12 +316,10 @@ package System.OS_Interface is function pthread_kill (thread : pthread_t; sig : Signal) return int; pragma Import (C, pthread_kill, "pthread_kill"); - type sigset_t_ptr is access all sigset_t; - function pthread_sigmask (how : int; - set : sigset_t_ptr; - oset : sigset_t_ptr) return int; + set : access sigset_t; + oset : access sigset_t) return int; pragma Import (C, pthread_sigmask, "pthread_sigmask"); -------------------------- diff --git a/gcc/ada/s-osinte-linux.ads b/gcc/ada/s-osinte-linux.ads index 9872cdc3439..5d909fd9a4a 100644 --- a/gcc/ada/s-osinte-linux.ads +++ b/gcc/ada/s-osinte-linux.ads @@ -7,7 +7,7 @@ -- S p e c -- -- -- -- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1995-2006, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -314,12 +314,10 @@ package System.OS_Interface is function pthread_kill (thread : pthread_t; sig : Signal) return int; pragma Import (C, pthread_kill, "pthread_kill"); - type sigset_t_ptr is access all sigset_t; - function pthread_sigmask (how : int; - set : sigset_t_ptr; - oset : sigset_t_ptr) return int; + set : access sigset_t; + oset : access sigset_t) return int; pragma Import (C, pthread_sigmask, "pthread_sigmask"); -------------------------- diff --git a/gcc/ada/s-osinte-lynxos-3.ads b/gcc/ada/s-osinte-lynxos-3.ads index dadf8843f1f..99e060a5f4b 100644 --- a/gcc/ada/s-osinte-lynxos-3.ads +++ b/gcc/ada/s-osinte-lynxos-3.ads @@ -7,7 +7,7 @@ -- S p e c -- -- -- -- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1995-2006, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -308,12 +308,10 @@ package System.OS_Interface is function pthread_kill (thread : pthread_t; sig : Signal) return int; pragma Import (C, pthread_kill, "pthread_kill"); - type sigset_t_ptr is access all sigset_t; - function pthread_sigmask (how : int; - set : sigset_t_ptr; - oset : sigset_t_ptr) return int; + set : access sigset_t; + oset : access sigset_t) return int; pragma Import (C, pthread_sigmask, "sigprocmask"); -------------------------- diff --git a/gcc/ada/s-osinte-lynxos.ads b/gcc/ada/s-osinte-lynxos.ads index 0499adfb9eb..133078bc246 100644 --- a/gcc/ada/s-osinte-lynxos.ads +++ b/gcc/ada/s-osinte-lynxos.ads @@ -7,7 +7,7 @@ -- S p e c -- -- -- -- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1995-2006, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -332,12 +332,10 @@ package System.OS_Interface is sig : Signal) return int; pragma Import (C, pthread_kill, "pthread_kill"); - type sigset_t_ptr is access all sigset_t; - function pthread_sigmask (how : int; - set : sigset_t_ptr; - oset : sigset_t_ptr) return int; + set : access sigset_t; + oset : access sigset_t) return int; pragma Import (C, pthread_sigmask, "pthread_sigmask"); -- The behavior of pthread_sigmask on LynxOS requires -- further investigation. diff --git a/gcc/ada/s-osinte-solaris-posix.ads b/gcc/ada/s-osinte-solaris-posix.ads index 5beb9670721..b3c4be2452b 100644 --- a/gcc/ada/s-osinte-solaris-posix.ads +++ b/gcc/ada/s-osinte-solaris-posix.ads @@ -7,7 +7,7 @@ -- S p e c -- -- -- -- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1995-2006, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -306,12 +306,10 @@ package System.OS_Interface is sig : Signal) return int; pragma Import (C, pthread_kill, "pthread_kill"); - type sigset_t_ptr is access all sigset_t; - function pthread_sigmask (how : int; - set : sigset_t_ptr; - oset : sigset_t_ptr) return int; + set : access sigset_t; + oset : access sigset_t) return int; pragma Import (C, pthread_sigmask, "pthread_sigmask"); -------------------------- diff --git a/gcc/ada/s-osinte-solaris.ads b/gcc/ada/s-osinte-solaris.ads index cbbca6eff4e..503475e4f12 100644 --- a/gcc/ada/s-osinte-solaris.ads +++ b/gcc/ada/s-osinte-solaris.ads @@ -7,7 +7,7 @@ -- S p e c -- -- -- -- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1995-2006, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -400,18 +400,16 @@ package System.OS_Interface is function thr_kill (thread : thread_t; sig : Signal) return int; pragma Import (C, thr_kill, "thr_kill"); - type sigset_t_ptr is access all sigset_t; - function thr_sigsetmask (how : int; - set : sigset_t_ptr; - oset : sigset_t_ptr) return int; + set : access sigset_t; + oset : access sigset_t) return int; pragma Import (C, thr_sigsetmask, "thr_sigsetmask"); function pthread_sigmask (how : int; - set : sigset_t_ptr; - oset : sigset_t_ptr) return int; + set : access sigset_t; + oset : access sigset_t) return int; pragma Import (C, pthread_sigmask, "thr_sigsetmask"); function thr_suspend (target_thread : thread_t) return int; diff --git a/gcc/ada/s-osinte-tru64.ads b/gcc/ada/s-osinte-tru64.ads index d3efe3079de..bac521fd54a 100644 --- a/gcc/ada/s-osinte-tru64.ads +++ b/gcc/ada/s-osinte-tru64.ads @@ -7,7 +7,7 @@ -- S p e c -- -- -- -- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1995-2006, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -335,12 +335,10 @@ package System.OS_Interface is sig : Signal) return int; pragma Import (C, pthread_kill); - type sigset_t_ptr is access all sigset_t; - function pthread_sigmask (how : int; - set : sigset_t_ptr; - oset : sigset_t_ptr) return int; + set : access sigset_t; + oset : access sigset_t) return int; pragma Import (C, pthread_sigmask); -------------------------- diff --git a/gcc/ada/s-osinte-vxworks.ads b/gcc/ada/s-osinte-vxworks.ads index 82b4bcee604..ef9907a248b 100644 --- a/gcc/ada/s-osinte-vxworks.ads +++ b/gcc/ada/s-osinte-vxworks.ads @@ -7,7 +7,7 @@ -- S p e c -- -- -- -- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1995-2006, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -141,12 +141,10 @@ package System.OS_Interface is function sigwait (set : access sigset_t; sig : access Signal) return int; pragma Inline (sigwait); - type sigset_t_ptr is access all sigset_t; - function pthread_sigmask (how : int; - set : sigset_t_ptr; - oset : sigset_t_ptr) return int; + set : access sigset_t; + oset : access sigset_t) return int; pragma Import (C, pthread_sigmask, "sigprocmask"); type t_id is new long; -- 2.30.2