From: Samuel Tardieu Date: Fri, 23 Nov 2007 13:16:54 +0000 (+0000) Subject: s-inmaop-posix.adb, [...]: Use 'Access instead of 'Unchecked_Access in second and... X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=bb1f5840b580ba1672d97cf0c8eccbcb50c3d3c0;p=gcc.git s-inmaop-posix.adb, [...]: Use 'Access instead of 'Unchecked_Access in second and third arguments of... gcc/ada/ * s-inmaop-posix.adb, s-intman-vxworks.adb, s-taprop-hpux-dce.adb, s-taprop-irix.adb, s-taprop-linux.adb, s-taprop-lynxos.adb, s-taprop-posix.adb, s-taprop-tru64.adb, s-taprop-vxworks.adb: Use 'Access instead of 'Unchecked_Access in second and third arguments of pthread_sigmask. From-SVN: r130376 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 8796c98277d..b8f8e24f090 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,11 @@ +2007-11-23 Samuel Tardieu + + * s-inmaop-posix.adb, s-intman-vxworks.adb, s-taprop-hpux-dce.adb, + s-taprop-irix.adb, s-taprop-linux.adb, s-taprop-lynxos.adb, + s-taprop-posix.adb, s-taprop-tru64.adb, s-taprop-vxworks.adb: + Use 'Access instead of 'Unchecked_Access in second and third + arguments of pthread_sigmask. + 2007-11-23 Eric Botcazou * decl.c (ceil_alignment): New function. 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 diff --git a/gcc/ada/s-intman-vxworks.adb b/gcc/ada/s-intman-vxworks.adb index 89071e7d1e2..a7c0b7f3da3 100644 --- a/gcc/ada/s-intman-vxworks.adb +++ b/gcc/ada/s-intman-vxworks.adb @@ -86,9 +86,9 @@ package body System.Interrupt_Management is pragma Unreferenced (Result); begin - Result := pthread_sigmask (SIG_SETMASK, null, Mask'Unchecked_Access); + Result := pthread_sigmask (SIG_SETMASK, null, Mask'Access); Result := sigdelset (Mask'Access, signo); - Result := pthread_sigmask (SIG_SETMASK, Mask'Unchecked_Access, null); + Result := pthread_sigmask (SIG_SETMASK, Mask'Access, null); Map_And_Raise_Exception (signo); end Notify_Exception; diff --git a/gcc/ada/s-taprop-hpux-dce.adb b/gcc/ada/s-taprop-hpux-dce.adb index 33ca89bf378..b962b890a07 100644 --- a/gcc/ada/s-taprop-hpux-dce.adb +++ b/gcc/ada/s-taprop-hpux-dce.adb @@ -193,8 +193,8 @@ package body System.Task_Primitives.Operations is Result := pthread_sigmask (SIG_UNBLOCK, - Unblocked_Signal_Mask'Unchecked_Access, - Old_Set'Unchecked_Access); + Unblocked_Signal_Mask'Access, + Old_Set'Access); pragma Assert (Result = 0); raise Standard'Abort_Signal; diff --git a/gcc/ada/s-taprop-irix.adb b/gcc/ada/s-taprop-irix.adb index 62264cad1d5..0ca8ccac519 100644 --- a/gcc/ada/s-taprop-irix.adb +++ b/gcc/ada/s-taprop-irix.adb @@ -189,8 +189,8 @@ package body System.Task_Primitives.Operations is Result := pthread_sigmask (SIG_UNBLOCK, - Unblocked_Signal_Mask'Unchecked_Access, - Old_Set'Unchecked_Access); + Unblocked_Signal_Mask'Access, + Old_Set'Access); pragma Assert (Result = 0); raise Standard'Abort_Signal; diff --git a/gcc/ada/s-taprop-linux.adb b/gcc/ada/s-taprop-linux.adb index b30fb247617..8e0f241cc07 100644 --- a/gcc/ada/s-taprop-linux.adb +++ b/gcc/ada/s-taprop-linux.adb @@ -211,8 +211,8 @@ package body System.Task_Primitives.Operations is Result := pthread_sigmask (SIG_UNBLOCK, - Unblocked_Signal_Mask'Unchecked_Access, - Old_Set'Unchecked_Access); + Unblocked_Signal_Mask'Access, + Old_Set'Access); pragma Assert (Result = 0); raise Standard'Abort_Signal; diff --git a/gcc/ada/s-taprop-lynxos.adb b/gcc/ada/s-taprop-lynxos.adb index 8693fed7ced..cc4e74a8bd7 100644 --- a/gcc/ada/s-taprop-lynxos.adb +++ b/gcc/ada/s-taprop-lynxos.adb @@ -200,8 +200,8 @@ package body System.Task_Primitives.Operations is Result := pthread_sigmask (SIG_UNBLOCK, - Unblocked_Signal_Mask'Unchecked_Access, - Old_Set'Unchecked_Access); + Unblocked_Signal_Mask'Access, + Old_Set'Access); pragma Assert (Result = 0); raise Standard'Abort_Signal; diff --git a/gcc/ada/s-taprop-posix.adb b/gcc/ada/s-taprop-posix.adb index f9b30ce69c6..7d3df5c0755 100644 --- a/gcc/ada/s-taprop-posix.adb +++ b/gcc/ada/s-taprop-posix.adb @@ -226,7 +226,7 @@ package body System.Task_Primitives.Operations is -- Make sure signals used for RTS internal purpose are unmasked Result := pthread_sigmask (SIG_UNBLOCK, - Unblocked_Signal_Mask'Unchecked_Access, Old_Set'Unchecked_Access); + Unblocked_Signal_Mask'Access, Old_Set'Access); pragma Assert (Result = 0); raise Standard'Abort_Signal; diff --git a/gcc/ada/s-taprop-tru64.adb b/gcc/ada/s-taprop-tru64.adb index 35acb26ce58..0b4620b59ac 100644 --- a/gcc/ada/s-taprop-tru64.adb +++ b/gcc/ada/s-taprop-tru64.adb @@ -197,8 +197,8 @@ package body System.Task_Primitives.Operations is Result := pthread_sigmask (SIG_UNBLOCK, - Unblocked_Signal_Mask'Unchecked_Access, - Old_Set'Unchecked_Access); + Unblocked_Signal_Mask'Access, + Old_Set'Access); pragma Assert (Result = 0); raise Standard'Abort_Signal; diff --git a/gcc/ada/s-taprop-vxworks.adb b/gcc/ada/s-taprop-vxworks.adb index 9af031a499a..54c4f82c692 100644 --- a/gcc/ada/s-taprop-vxworks.adb +++ b/gcc/ada/s-taprop-vxworks.adb @@ -200,8 +200,8 @@ package body System.Task_Primitives.Operations is Result := pthread_sigmask (SIG_UNBLOCK, - Unblocked_Signal_Mask'Unchecked_Access, - Old_Set'Unchecked_Access); + Unblocked_Signal_Mask'Access, + Old_Set'Access); pragma Assert (Result = 0); raise Standard'Abort_Signal;