diff options
Diffstat (limited to 'gcc/ada/a-calend.adb')
-rw-r--r-- | gcc/ada/a-calend.adb | 22 |
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; |