diff options
Diffstat (limited to 'gcc/ada/5iosinte.ads')
| -rw-r--r-- | gcc/ada/5iosinte.ads | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/ada/5iosinte.ads b/gcc/ada/5iosinte.ads index 7b5de13b92c..c8f06916f13 100644 --- a/gcc/ada/5iosinte.ads +++ b/gcc/ada/5iosinte.ads @@ -273,9 +273,12 @@ package System.OS_Interface is function Thread_Body_Access is new Unchecked_Conversion (System.Address, Thread_Body); - type pthread_t is private; + type pthread_t is new unsigned_long; subtype Thread_Id is pthread_t; + function To_pthread_t is new Unchecked_Conversion + (unsigned_long, pthread_t); + type pthread_mutex_t is limited private; type pthread_cond_t is limited private; type pthread_attr_t is limited private; @@ -498,8 +501,6 @@ private end record; pragma Convention (C, pthread_mutexattr_t); - type pthread_t is new unsigned_long; - type struct_pthread_fast_lock is record status : long; spinlock : int; |