diff options
Diffstat (limited to 'gcc/ada/a-calfor.adb')
| -rw-r--r-- | gcc/ada/a-calfor.adb | 22 |
1 files changed, 21 insertions, 1 deletions
diff --git a/gcc/ada/a-calfor.adb b/gcc/ada/a-calfor.adb index d16f187..9804e22 100644 --- a/gcc/ada/a-calfor.adb +++ b/gcc/ada/a-calfor.adb @@ -34,6 +34,8 @@ with Ada.Calendar; use Ada.Calendar; with Ada.Calendar.Time_Zones; use Ada.Calendar.Time_Zones; +pragma Warnings (Off); -- temp till we fix out param warnings ??? + package body Ada.Calendar.Formatting is -------------------------- @@ -93,6 +95,8 @@ package body Ada.Calendar.Formatting is Ss : Second_Duration; Le : Boolean; + pragma Unreferenced (Y, Mo, H, Mi); + begin Split (Date, Y, Mo, D, H, Mi, Se, Ss, Le, Time_Zone); return D; @@ -124,6 +128,8 @@ package body Ada.Calendar.Formatting is Ss : Second_Duration; Le : Boolean; + pragma Unreferenced (Y, Mo, D, Mi); + begin Split (Date, Y, Mo, D, H, Mi, Se, Ss, Le, Time_Zone); return H; @@ -345,6 +351,9 @@ package body Ada.Calendar.Formatting is Se : Second_Number; Ss : Second_Duration; Le : Boolean; + + pragma Unreferenced (Y, Mo, D, H); + begin Split (Date, Y, Mo, D, H, Mi, Se, Ss, Le, Time_Zone); return Mi; @@ -366,6 +375,9 @@ package body Ada.Calendar.Formatting is Se : Second_Number; Ss : Second_Duration; Le : Boolean; + + pragma Unreferenced (Y, D, H, Mi); + begin Split (Date, Y, Mo, D, H, Mi, Se, Ss, Le, Time_Zone); return Mo; @@ -384,6 +396,9 @@ package body Ada.Calendar.Formatting is Se : Second_Number; Ss : Second_Duration; Le : Boolean; + + pragma Unreferenced (Y, Mo, D, H, Mi); + begin Split (Date, Y, Mo, D, H, Mi, Se, Ss, Le); return Se; @@ -413,7 +428,7 @@ package body Ada.Calendar.Formatting is return Day_Duration (Hour * 3_600) + Day_Duration (Minute * 60) + Day_Duration (Second) + - Sub_Second; + Sub_Second; end Seconds_Of; ----------- @@ -613,6 +628,9 @@ package body Ada.Calendar.Formatting is Se : Second_Number; Ss : Second_Duration; Le : Boolean; + + pragma Unreferenced (Y, Mo, D, H, Mi); + begin Split (Date, Y, Mo, D, H, Mi, Se, Ss, Le); return Ss; @@ -923,6 +941,8 @@ package body Ada.Calendar.Formatting is Ss : Second_Duration; Le : Boolean; + pragma Unreferenced (Mo, D, H, Mi); + begin Split (Date, Y, Mo, D, H, Mi, Se, Ss, Le, Time_Zone); return Y; |