diff options
Diffstat (limited to 'gcc/ada/s-osinte-darwin.ads')
| -rw-r--r-- | gcc/ada/s-osinte-darwin.ads | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/gcc/ada/s-osinte-darwin.ads b/gcc/ada/s-osinte-darwin.ads index d53e2c43dca..2a3b9282b52 100644 --- a/gcc/ada/s-osinte-darwin.ads +++ b/gcc/ada/s-osinte-darwin.ads @@ -41,6 +41,7 @@ -- Elaborate_Body. It is designed to be a bottom-level (leaf) package. with Interfaces.C; +with System.OS_Constants; package System.OS_Interface is pragma Preelaborate; @@ -532,7 +533,7 @@ private -- -- Darwin specific signal implementation -- - type Pad_Type is array (1 .. 7) of unsigned; + type Pad_Type is array (1 .. 7) of unsigned_long; type siginfo_t is record si_signo : int; -- signal number si_errno : int; -- errno association @@ -568,37 +569,37 @@ private type pthread_attr_t is record sig : long; - opaque : padding (1 .. 36); + opaque : padding (1 .. System.OS_Constants.PTHREAD_ATTR_SIZE); end record; pragma Convention (C, pthread_attr_t); type pthread_mutexattr_t is record sig : long; - opaque : padding (1 .. 8); + opaque : padding (1 .. System.OS_Constants.PTHREAD_MUTEXATTR_SIZE); end record; pragma Convention (C, pthread_mutexattr_t); type pthread_mutex_t is record sig : long; - opaque : padding (1 .. 40); + opaque : padding (1 .. System.OS_Constants.PTHREAD_MUTEX_SIZE); end record; pragma Convention (C, pthread_mutex_t); type pthread_condattr_t is record sig : long; - opaque : padding (1 .. 4); + opaque : padding (1 .. System.OS_Constants.PTHREAD_CONDATTR_SIZE); end record; pragma Convention (C, pthread_condattr_t); type pthread_cond_t is record sig : long; - opaque : padding (1 .. 24); + opaque : padding (1 .. System.OS_Constants.PTHREAD_COND_SIZE); end record; pragma Convention (C, pthread_cond_t); type pthread_once_t is record sig : long; - opaque : padding (1 .. 4); + opaque : padding (1 .. System.OS_Constants.PTHREAD_ONCE_SIZE); end record; pragma Convention (C, pthread_once_t); |