Commit 088c0a3a by Arnaud Charlet

Minor reformatting.

From-SVN: r197801
parent 7eb29ac8
...@@ -6,7 +6,7 @@ ...@@ -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 ...@@ -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;
......
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