diff options
| author | Vasiliy Fofanov <fofanov@adacore.com> | 2007-12-13 11:44:32 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-12-13 11:44:32 +0100 |
| commit | 1e22f4427892cd132f5b61c99a6d10943290bcfd (patch) | |
| tree | a77372ed7aacd10f37252e8c5f2c23b0f1fa8ea8 /gcc | |
| parent | aee21c6fec52d3a696344c134efd9e3841730ac1 (diff) | |
| download | gcc-1e22f4427892cd132f5b61c99a6d10943290bcfd.zip gcc-1e22f4427892cd132f5b61c99a6d10943290bcfd.tar.gz gcc-1e22f4427892cd132f5b61c99a6d10943290bcfd.tar.bz2 | |
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
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); |