Commit 69031b45 by Arnaud Charlet

Fix typo.

From-SVN: r223078
parent 7166d535
...@@ -281,7 +281,7 @@ package body Ada.Real_Time is ...@@ -281,7 +281,7 @@ package body Ada.Real_Time is
Dist_To_Boundary : constant Time_Span := Dist_To_Boundary : constant Time_Span :=
TS - Time_Span (Closest_Boundary); TS - Time_Span (Closest_Boundary);
-- Distance between TS and Closest_Boundary expressed in Time_Span -- Distance between TS and Closest_Boundary expressed in Time_Span
-- Both operands in the substraction have the same sign, hence -- Both operands in the subtraction have the same sign, hence
-- avoiding overflow. -- avoiding overflow.
begin begin
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment