diff options
Diffstat (limited to 'gcc/ada/a-calend.adb')
| -rw-r--r-- | gcc/ada/a-calend.adb | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/gcc/ada/a-calend.adb b/gcc/ada/a-calend.adb index eb77eac37b2..dfe97ac277d 100644 --- a/gcc/ada/a-calend.adb +++ b/gcc/ada/a-calend.adb @@ -467,10 +467,11 @@ package body Ada.Calendar is --------- function Day (Date : Time) return Day_Number is + D : Day_Number; Y : Year_Number; M : Month_Number; - D : Day_Number; S : Day_Duration; + pragma Unreferenced (Y, M, S); begin Split (Date, Y, M, D, S); return D; @@ -508,6 +509,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; @@ -522,6 +524,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; @@ -544,6 +547,8 @@ package body Ada.Calendar is Ss : Duration; Le : Boolean; + pragma Unreferenced (H, M, Se, Ss, Le); + begin -- Even though the input time zone is UTC (0), the flag Is_Ada_05 will -- ensure that Split picks up the local time zone. @@ -631,6 +636,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; @@ -822,6 +828,8 @@ package body Ada.Calendar is Su : Duration; Le : Boolean; + pragma Unreferenced (Ds, H, Mi, Se, Su, Le); + Day_Count : Long_Integer; Res_Dur : Time_Dur; Res_N : Time_Rep; |