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/ada/a-calend-vms.adb | |
| 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/ada/a-calend-vms.adb')
| -rw-r--r-- | gcc/ada/a-calend-vms.adb | 6 |
1 files changed, 4 insertions, 2 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; |