2005-03-29 Robert Dewar <dewar@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / s-stalib.ads

diff --git a/gcc/ada/s-stalib.ads b/gcc/ada/s-stalib.ads
index 84bf0b9..c2865a9 100644 (file)
--- a/gcc/ada/s-stalib.ads
+++ b/gcc/ada/s-stalib.ads
@@ -97,7 +97,7 @@ package System.Standard_Library is
    type Exception_Data_Ptr is access all Exception_Data;
    --  An equivalent of Exception_Id that is public
 
-   type Exception_Code is mod 2 ** 32;
+   type Exception_Code is mod 2 ** Integer'Size;
    --  A scalar value bound to some exception data. Typically used for
    --  imported or exported exceptions on VMS. Having a separate type for this
    --  is useful to enforce consistency throughout the various run-time units