summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--gcc/ada/ChangeLog8
-rw-r--r--gcc/ada/s-inmaop-posix.adb10
-rw-r--r--gcc/ada/s-intman-vxworks.adb4
-rw-r--r--gcc/ada/s-taprop-hpux-dce.adb4
-rw-r--r--gcc/ada/s-taprop-irix.adb4
-rw-r--r--gcc/ada/s-taprop-linux.adb4
-rw-r--r--gcc/ada/s-taprop-lynxos.adb4
-rw-r--r--gcc/ada/s-taprop-posix.adb2
-rw-r--r--gcc/ada/s-taprop-tru64.adb4
-rw-r--r--gcc/ada/s-taprop-vxworks.adb4
10 files changed, 28 insertions, 20 deletions
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 <sam@rfc1149.net>
+
+ * 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 <ebotcazou@adacore.com>
* 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;
View Lorry Controller Status