g-zstspl.ads: New file.

[gcc.git] / gcc / ada / exp_imgv.ads

diff --git a/gcc/ada/exp_imgv.ads b/gcc/ada/exp_imgv.ads
index 7df2692a76ff1e43d7a4d4d01c275002375b5238..5f601dd7fe8d83553fe6034780b7e214070249f1 100644 (file)
--- a/gcc/ada/exp_imgv.ads
+++ b/gcc/ada/exp_imgv.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---            Copyright (C) 2000 Free Software Foundation, Inc.             --
+--          Copyright (C) 2000-2005 Free Software Foundation, Inc.          --
 --                                                                          --
 -- 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- --
@@ -78,8 +78,12 @@ package Exp_Imgv is
    --  This procedure is called from Exp_Attr to expand an occurrence
    --  of the attribute Value.
 
-   procedure Expand_Width_Attribute (N : Node_Id; Wide : Boolean);
-   --  This procedure is called from Exp_Attr to expand an occurrence of
-   --  the attributes Width (Wide = False) or Wide_Width (Wide = True).
+   type Atype is (Normal, Wide, Wide_Wide);
+   --  Type of attribute in call to Expand_Width_Attribute
+
+   procedure Expand_Width_Attribute (N : Node_Id; Attr : Atype := Normal);
+   --  This procedure is called from Exp_Attr to expand an occurrence of the
+   --  attributes Width (Attr = Normal), or Wide_Width (Attr Wide), or
+   --  Wide_Wide_Width (Attr = Wide_Wide).
 
 end Exp_Imgv;