aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/a-calend.adb
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/a-calend.adb')
-rw-r--r--gcc/ada/a-calend.adb22
1 files changed, 11 insertions, 11 deletions
diff --git a/gcc/ada/a-calend.adb b/gcc/ada/a-calend.adb
index 3d70cf4..dbc9577 100644
--- a/gcc/ada/a-calend.adb
+++ b/gcc/ada/a-calend.adb
@@ -177,29 +177,29 @@ package body Ada.Calendar is
-- UTC, it must be increased to include all leap seconds.
Ada_High_And_Leaps : constant Time_Rep :=
- Ada_High + Time_Rep (Leap_Seconds_Count) * Nano;
+ Ada_High + Time_Rep (Leap_Seconds_Count) * Nano;
-- Two constants used in the calculations of elapsed leap seconds.
-- End_Of_Time is later than Ada_High in time zone -28. Start_Of_Time
-- is earlier than Ada_Low in time zone +28.
End_Of_Time : constant Time_Rep :=
- Ada_High + Time_Rep (3) * Nanos_In_Day;
+ Ada_High + Time_Rep (3) * Nanos_In_Day;
Start_Of_Time : constant Time_Rep :=
- Ada_Low - Time_Rep (3) * Nanos_In_Day;
+ Ada_Low - Time_Rep (3) * Nanos_In_Day;
-- The Unix lower time bound expressed as nanoseconds since the start of
-- Ada time in UTC.
Unix_Min : constant Time_Rep :=
- Ada_Low + Time_Rep (17 * 366 + 52 * 365) * Nanos_In_Day;
+ Ada_Low + Time_Rep (17 * 366 + 52 * 365) * Nanos_In_Day;
-- The Unix upper time bound expressed as nanoseconds since the start of
-- Ada time in UTC.
Unix_Max : constant Time_Rep :=
- Ada_Low + Time_Rep (34 * 366 + 102 * 365) * Nanos_In_Day +
- Time_Rep (Leap_Seconds_Count) * Nano;
+ Ada_Low + Time_Rep (34 * 366 + 102 * 365) * Nanos_In_Day +
+ Time_Rep (Leap_Seconds_Count) * Nano;
Epoch_Offset : constant Time_Rep := (136 * 365 + 44 * 366) * Nanos_In_Day;
-- The difference between 2150-1-1 UTC and 1970-1-1 UTC expressed in
@@ -367,7 +367,7 @@ package body Ada.Calendar is
-- by adding the number of nanoseconds between the two origins.
Res_N : Time_Rep :=
- Duration_To_Time_Rep (System.OS_Primitives.Clock) + Unix_Min;
+ Duration_To_Time_Rep (System.OS_Primitives.Clock) + Unix_Min;
begin
-- If the target supports leap seconds, determine the number of leap
@@ -1283,7 +1283,7 @@ package body Ada.Calendar is
else
declare
Off : constant Long_Integer :=
- UTC_Time_Offset (Time (Date_N), Is_Historic);
+ UTC_Time_Offset (Time (Date_N), Is_Historic);
begin
Date_N := Date_N + Time_Rep (Off) * Nano;
@@ -1506,11 +1506,11 @@ package body Ada.Calendar is
else
declare
Cur_Off : constant Long_Integer :=
- UTC_Time_Offset (Time (Res_N), Is_Historic);
+ UTC_Time_Offset (Time (Res_N), Is_Historic);
Cur_Res_N : constant Time_Rep :=
- Res_N - Time_Rep (Cur_Off) * Nano;
+ Res_N - Time_Rep (Cur_Off) * Nano;
Off : constant Long_Integer :=
- UTC_Time_Offset (Time (Cur_Res_N), Is_Historic);
+ UTC_Time_Offset (Time (Cur_Res_N), Is_Historic);
begin
Res_N := Res_N - Time_Rep (Off) * Nano;