From 1e22f4427892cd132f5b61c99a6d10943290bcfd Mon Sep 17 00:00:00 2001 From: Vasiliy Fofanov Date: Thu, 13 Dec 2007 11:44:32 +0100 Subject: [PATCH] g-socthi-vms.ads (Fd_Set_Access): make it 32-bit. 2007-12-06 Vasiliy Fofanov Tristan Gingold * g-socthi-vms.ads (Fd_Set_Access): make it 32-bit. * s-osprim-vms.adb, a-calend-vms.adb: Remove pragma warning off and add pragma unreferenced. From-SVN: r130876 --- gcc/ada/a-calend-vms.adb | 6 ++++-- gcc/ada/g-socthi-vms.ads | 3 ++- 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 fb5ac13cfe8..2fb04d501e1 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 28b9dd0975f..b55a58d3757 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 8a9430e1d38..9bd8e61bff2 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); -- 2.30.2