diff options
Diffstat (limited to 'gcc/ada/s-taprop-vms.adb')
| -rw-r--r-- | gcc/ada/s-taprop-vms.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/s-taprop-vms.adb b/gcc/ada/s-taprop-vms.adb index 0647b21c981..0440ff3d359 100644 --- a/gcc/ada/s-taprop-vms.adb +++ b/gcc/ada/s-taprop-vms.adb @@ -150,7 +150,8 @@ package body System.Task_Primitives.Operations is -- Signal the condition variable when AST fires procedure Timer_Sleep_AST (ID : Address) is - Result : Interfaces.C.int; + Result : Interfaces.C.int; + pragma Warnings (Off, Result); Self_ID : constant Task_Id := To_Task_Id (ID); begin Self_ID.Common.LL.AST_Pending := False; |