2008-08-01 Doug Rupp <rupp@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / types.ads

diff --git a/gcc/ada/types.ads b/gcc/ada/types.ads
index 9b4bfb8..de9c54b 100644 (file)
--- a/gcc/ada/types.ads
+++ b/gcc/ada/types.ads
@@ -736,7 +736,7 @@ package Types is
    --  passing mechanism. See specification of Sem_Mech for full details.
    --  The following subtype is used to represent values of this type:
 
-   subtype Mechanism_Type is Int range -10 .. Int'Last;
+   subtype Mechanism_Type is Int range -18 .. Int'Last;
    --  Type used to represent a mechanism value. This is a subtype rather
    --  than a type to avoid some annoying processing problems with certain
    --  routines in Einfo (processing them to create the corresponding C).