s-taprop-solaris.adb, [...]: Minor reformatting.

[gcc.git] / gcc / ada / g-calend.adb

diff --git a/gcc/ada/g-calend.adb b/gcc/ada/g-calend.adb
index f34a0d9d7c959f8db499d44ee8074ee47ab40b6a..e2edaff657de8ec7a39a65070641bedeee5336e8 100644 (file)
--- a/gcc/ada/g-calend.adb
+++ b/gcc/ada/g-calend.adb
@@ -45,6 +45,7 @@ package body GNAT.Calendar is
       Month    : Month_Number;
       Day      : Day_Number;
       Day_Secs : Day_Duration;
+      pragma Unreferenced (Day_Secs);
    begin
       Split (Date, Year, Month, Day, Day_Secs);
       return Julian_Day (Year, Month, Day) - Julian_Day (Year, 1, 1) + 1;
@@ -59,6 +60,7 @@ package body GNAT.Calendar is
       Month    : Month_Number;
       Day      : Day_Number;
       Day_Secs : Day_Duration;
+      pragma Unreferenced (Day_Secs);
    begin
       Split (Date, Year, Month, Day, Day_Secs);
       return Day_Name'Val ((Julian_Day (Year, Month, Day)) mod 7);
@@ -76,6 +78,7 @@ package body GNAT.Calendar is
       Minute     : Minute_Number;
       Second     : Second_Number;
       Sub_Second : Second_Duration;
+      pragma Unreferenced (Year, Month, Day, Minute, Second, Sub_Second);
    begin
       Split (Date, Year, Month, Day, Hour, Minute, Second, Sub_Second);
       return Hour;
@@ -135,6 +138,7 @@ package body GNAT.Calendar is
       Minute     : Minute_Number;
       Second     : Second_Number;
       Sub_Second : Second_Duration;
+      pragma Unreferenced (Year, Month, Day, Hour, Second, Sub_Second);
    begin
       Split (Date, Year, Month, Day, Hour, Minute, Second, Sub_Second);
       return Minute;
@@ -152,6 +156,7 @@ package body GNAT.Calendar is
       Minute     : Minute_Number;
       Second     : Second_Number;
       Sub_Second : Second_Duration;
+      pragma Unreferenced (Year, Month, Day, Hour, Minute, Sub_Second);
    begin
       Split (Date, Year, Month, Day, Hour, Minute, Second, Sub_Second);
       return Second;
@@ -202,6 +207,7 @@ package body GNAT.Calendar is
       Minute     : Minute_Number;
       Second     : Second_Number;
       Sub_Second : Second_Duration;
+      pragma Unreferenced (Year, Month, Day, Hour, Minute, Second);
    begin
       Split (Date, Year, Month, Day, Hour, Minute, Second, Sub_Second);
       return Sub_Second;
@@ -220,6 +226,7 @@ package body GNAT.Calendar is
       Second     : Second_Number;
       Sub_Second : Second_Duration := 0.0) return Time
    is
+
       Day_Secs : constant Day_Duration :=
                    Day_Duration (Hour   * 3_600) +
                    Day_Duration (Minute *    60) +
@@ -297,6 +304,8 @@ package body GNAT.Calendar is
       Shift      : Week_In_Year_Number;
       Start_Week : Week_In_Year_Number;
 
+      pragma Unreferenced (Hour, Minute, Second, Sub_Second);
+
       function Is_Leap (Year : Year_Number) return Boolean;
       --  Return True if Year denotes a leap year. Leap centential years are
       --  properly handled.