2007-04-20 Hristian Kirtchev <kirtchev@adacore.com>
* a-calend.ads, a-calend.adb, a-calend-vms.ads, a-calend-vms.adb ("-" (Time, Time)): Use To_Relative_Time rather than manual calculation to express the bounds of Duration as Time. Raise Time_Error when the result is greater or equal to the higher bound of Duration (on the margin case). ("+" (Time, Duration)): Reorder code. Remove the declaration of constant Ada_High_And_Leaps. ("-" (Time, Duration)): Reorder code. Remove the declaration of constant Ada_High_And_Leaps. ("-" (Time, Time)): Reorder code. (All_Leap_Seconds): Removed. (Arithmetic_Operations.Add): Remove sign related kludge. (Arithmetic_Operations.Difference): Control the leaps seconds processing with flag Leap_Support. (Arithmetic_Operations.Subtract): Remove sign related kludge. (Check_Within_Time_Bounds): New procedure. (Clock): Control the leap seconds processing with flag Leap_Support. (Cumulative_Leap_Seconds): Assert that the target supports leap seconds. (Formatting_Operations.Split): Control the leap seconds processing with flag Leap_Support. (Formatting_Operations.Time_Of): Control the leaps seconds processing with flag Leap_Support. Adjust the year, month and day (if applicable) when the value of day seconds designates a new day. (Split): Use parameter associations for better readability. Integrate flag Is_Ada_05. (Time_Of): Use parameter associations for better readability. Integrate flag Is_Ada_05. * a-calfor.adb (Split): Use parameter associations for better readability. Integrate flag Is_Ada_05. (Time_Of): Remove flag Leap_Checks. Use parameter associations for better readability. Integrate flag Is_Ada_05. From-SVN: r125363
Showing
This diff is collapsed.
Click to expand it.
This diff is collapsed.
Click to expand it.
This diff is collapsed.
Click to expand it.
Please
register
or
sign in
to comment