diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-12-13 10:44:32 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-12-13 10:44:32 +0000 |
| commit | b4fedba9049592bad62488aafce4eb37b3c1987f (patch) | |
| tree | a77372ed7aacd10f37252e8c5f2c23b0f1fa8ea8 /gcc | |
| parent | b06d1bc32090ab9e34e09bd23112db3d84d1b6f8 (diff) | |
| download | gcc-b4fedba9049592bad62488aafce4eb37b3c1987f.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130876 138bc75d-0d04-0410-961f-82ee72b054a4
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 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); |