Minor reformatting.

From-SVN: r197801
This commit is contained in:
Arnaud Charlet 2013-04-11 15:39:33 +02:00
parent 7eb29ac8d3
commit 088c0a3a4a

View file

@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 1992-2012, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2013, Free Software Foundation, Inc. --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- -- -- terms of the GNU General Public License as published by the Free Soft- --
@ -1331,9 +1331,9 @@ package body ALI is
when Constraint_Error => when Constraint_Error =>
-- A constraint error comes from the -- A constraint error comes from the
-- additionh. We reset to the maximum -- addition. We reset to the maximum
-- and indicate that the real value is -- and indicate that the real value
-- now unknown. -- is now unknown.
Cumulative_Restrictions.Value (R) := Cumulative_Restrictions.Value (R) :=
Integer'Last; Integer'Last;