diff options
Diffstat (limited to 'gcc/ada/s-inmaop-posix.adb')
| -rw-r--r-- | gcc/ada/s-inmaop-posix.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/s-inmaop-posix.adb b/gcc/ada/s-inmaop-posix.adb index 5cee6255e40..a38d391fdfc 100644 --- a/gcc/ada/s-inmaop-posix.adb +++ b/gcc/ada/s-inmaop-posix.adb @@ -77,7 +77,7 @@ package body System.Interrupt_Management.Operations is pragma Assert (Result = 0); Result := sigaddset (Mask'Access, Signal (Interrupt)); pragma Assert (Result = 0); - Result := pthread_sigmask (SIG_BLOCK, Mask'Unchecked_Access, null); + Result := pthread_sigmask (SIG_BLOCK, Mask'Access, null); pragma Assert (Result = 0); end Thread_Block_Interrupt; @@ -95,7 +95,7 @@ package body System.Interrupt_Management.Operations is pragma Assert (Result = 0); Result := sigaddset (Mask'Access, Signal (Interrupt)); pragma Assert (Result = 0); - Result := pthread_sigmask (SIG_UNBLOCK, Mask'Unchecked_Access, null); + Result := pthread_sigmask (SIG_UNBLOCK, Mask'Access, null); pragma Assert (Result = 0); end Thread_Unblock_Interrupt; @@ -286,7 +286,7 @@ begin for Sig in 1 .. Signal'Last loop Result := sigaction - (Sig, null, Initial_Action (Sig)'Unchecked_Access); + (Sig, null, Initial_Action (Sig)'Access); -- ??? [assert 1] -- we can't check Result here since sigaction will fail on @@ -326,12 +326,12 @@ begin -- The Keep_Unmasked signals should be unmasked for Environment task - Result := pthread_sigmask (SIG_UNBLOCK, mask'Unchecked_Access, null); + Result := pthread_sigmask (SIG_UNBLOCK, mask'Access, null); pragma Assert (Result = 0); -- Get the signal mask of the Environment Task - Result := pthread_sigmask (SIG_SETMASK, null, mask'Unchecked_Access); + Result := pthread_sigmask (SIG_SETMASK, null, mask'Access); pragma Assert (Result = 0); -- Setup the constants exported |