diff options
Diffstat (limited to 'gcc/ada/s-taprop-vxworks.adb')
| -rw-r--r-- | gcc/ada/s-taprop-vxworks.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/s-taprop-vxworks.adb b/gcc/ada/s-taprop-vxworks.adb index 51e7f0cac18..9af031a499a 100644 --- a/gcc/ada/s-taprop-vxworks.adb +++ b/gcc/ada/s-taprop-vxworks.adb @@ -176,9 +176,11 @@ package body System.Task_Primitives.Operations is pragma Unreferenced (signo); Self_ID : constant Task_Id := Self; - Result : int; Old_Set : aliased sigset_t; + Result : int; + pragma Warnings (Off, Result); + begin -- It is not safe to raise an exception when using ZCX and the GCC -- exception handling mechanism. |