diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-15 09:29:34 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-15 09:29:34 +0000 |
| commit | 4fea14f79423d6531d258b85911bd0e9a21c6266 (patch) | |
| tree | da1db605d42d11a127646d51d16b342dfefe348b /gcc/ada/s-inmaop-posix.adb | |
| parent | eccb63561ff07ac55b82fb7e609e77bf306e773a (diff) | |
| download | gcc-4fea14f79423d6531d258b85911bd0e9a21c6266.tar.gz | |
* 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111025 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-inmaop-posix.adb')
| -rw-r--r-- | gcc/ada/s-inmaop-posix.adb | 20 |
1 files changed, 5 insertions, 15 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; |