Minor reformatting.
From-SVN: r197801
This commit is contained in:
parent
7eb29ac8d3
commit
088c0a3a4a
1 changed files with 4 additions and 4 deletions
|
@ -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;
|
||||||
|
|
Loading…
Add table
Reference in a new issue