diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/a-calend-vms.adb | 6 | ||||
| -rw-r--r-- | gcc/ada/g-socthi-vms.ads | 3 | ||||
| -rw-r--r-- | gcc/ada/s-osprim-vms.adb | 1 |
3 files changed, 7 insertions, 3 deletions
diff --git a/gcc/ada/a-calend-vms.adb b/gcc/ada/a-calend-vms.adb index fb5ac13..2fb04d5 100644 --- a/gcc/ada/a-calend-vms.adb +++ b/gcc/ada/a-calend-vms.adb @@ -37,8 +37,6 @@ with System.Aux_DEC; use System.Aux_DEC; with Ada.Unchecked_Conversion; -pragma Warnings (Off); -- temp till we fix out param warnings ??? - package body Ada.Calendar is -------------------------- @@ -439,6 +437,7 @@ package body Ada.Calendar is M : Month_Number; D : Day_Number; S : Day_Duration; + pragma Unreferenced (Y, M, S); begin Split (Date, Y, M, D, S); return D; @@ -476,6 +475,7 @@ package body Ada.Calendar is M : Month_Number; D : Day_Number; S : Day_Duration; + pragma Unreferenced (Y, D, S); begin Split (Date, Y, M, D, S); return M; @@ -490,6 +490,7 @@ package body Ada.Calendar is M : Month_Number; D : Day_Number; S : Day_Duration; + pragma Unreferenced (Y, M, D); begin Split (Date, Y, M, D, S); return S; @@ -619,6 +620,7 @@ package body Ada.Calendar is M : Month_Number; D : Day_Number; S : Day_Duration; + pragma Unreferenced (M, D, S); begin Split (Date, Y, M, D, S); return Y; diff --git a/gcc/ada/g-socthi-vms.ads b/gcc/ada/g-socthi-vms.ads index 28b9dd0..b55a58d 100644 --- a/gcc/ada/g-socthi-vms.ads +++ b/gcc/ada/g-socthi-vms.ads @@ -44,6 +44,7 @@ with GNAT.OS_Lib; with GNAT.Sockets.Constants; with System; +with System.Aux_DEC; package GNAT.Sockets.Thin is @@ -80,7 +81,7 @@ package GNAT.Sockets.Thin is end Host_Error_Messages; - subtype Fd_Set_Access is System.Address; + subtype Fd_Set_Access is System.Aux_DEC.Short_Address; No_Fd_Set : constant Fd_Set_Access := System.Null_Address; type time_t is diff --git a/gcc/ada/s-osprim-vms.adb b/gcc/ada/s-osprim-vms.adb index 8a9430e..9bd8e61 100644 --- a/gcc/ada/s-osprim-vms.adb +++ b/gcc/ada/s-osprim-vms.adb @@ -177,6 +177,7 @@ package body System.OS_Primitives is is Sleep_Time : OS_Time; Status : Cond_Value_Type; + pragma Unreferenced (Status); begin Sleep_Time := To_OS_Time (Time, Mode); |