g-socthi-vms.ads (Fd_Set_Access): make it 32-bit.

2007-12-06  Vasiliy Fofanov  <fofanov@adacore.com>
	    Tristan Gingold  <gingold@adacore.com>

	* 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

diff --git a/gcc/ada/a-calend-vms.adb b/gcc/ada/a-calend-vms.adb
index fb5ac13..2fb04d5 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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);