2007-04-20 Vincent Celier <celier@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / a-stwima.ads

diff --git a/gcc/ada/a-stwima.ads b/gcc/ada/a-stwima.ads
index bf1bcef..a745574 100644 (file)
--- a/gcc/ada/a-stwima.ads
+++ b/gcc/ada/a-stwima.ads
@@ -6,8 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---                                                                          --
---          Copyright (C) 1992-1998 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2006, Free Software Foundation, Inc.         --
 --                                                                          --
 -- This specification is derived from the Ada Reference Manual for use with --
 -- GNAT. The copyright notice above, and the license provisions that follow --
@@ -21,8 +20,8 @@
 -- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
 -- for  more details.  You should have  received  a copy of the GNU General --
 -- Public License  distributed with GNAT;  see file COPYING.  If not, write --
--- to  the Free Software Foundation,  59 Temple Place - Suite 330,  Boston, --
--- MA 02111-1307, USA.                                                      --
+-- to  the  Free Software Foundation,  51  Franklin  Street,  Fifth  Floor, --
+-- Boston, MA 02110-1301, USA.                                              --
 --                                                                          --
 -- As a special exception,  if other files  instantiate  generics from this --
 -- unit, or you link  this unit with other files  to produce an executable, --
@@ -39,13 +38,14 @@
 with Ada.Finalization;
 
 package Ada.Strings.Wide_Maps is
-   pragma Preelaborate (Wide_Maps);
+   pragma Preelaborate;
 
    -------------------------------------
    -- Wide Character Set Declarations --
    -------------------------------------
 
    type Wide_Character_Set is private;
+   pragma Preelaborable_Initialization (Wide_Character_Set);
    --  Representation for a set of Wide_Character values:
 
    Null_Set : constant Wide_Character_Set;
@@ -64,85 +64,71 @@ package Ada.Strings.Wide_Maps is
      array (Positive range <>) of Wide_Character_Range;
 
    function To_Set
-     (Ranges : in Wide_Character_Ranges)
-      return   Wide_Character_Set;
+     (Ranges : Wide_Character_Ranges) return Wide_Character_Set;
 
    function To_Set
-     (Span : in Wide_Character_Range)
-      return Wide_Character_Set;
+     (Span : Wide_Character_Range) return Wide_Character_Set;
 
    function To_Ranges
-     (Set :  in Wide_Character_Set)
-      return Wide_Character_Ranges;
+     (Set : Wide_Character_Set) return Wide_Character_Ranges;
 
    ---------------------------------------
    -- Operations on Wide Character Sets --
    ---------------------------------------
 
-   function "=" (Left, Right : in Wide_Character_Set) return Boolean;
+   function "=" (Left, Right : Wide_Character_Set) return Boolean;
 
    function "not"
-     (Right  : in Wide_Character_Set)
-      return Wide_Character_Set;
+     (Right : Wide_Character_Set) return Wide_Character_Set;
 
    function "and"
-     (Left, Right : in Wide_Character_Set)
-      return        Wide_Character_Set;
+     (Left, Right : Wide_Character_Set) return Wide_Character_Set;
 
    function "or"
-     (Left, Right : in Wide_Character_Set)
-      return        Wide_Character_Set;
+     (Left, Right : Wide_Character_Set) return Wide_Character_Set;
 
    function "xor"
-     (Left, Right : in Wide_Character_Set)
-      return        Wide_Character_Set;
+     (Left, Right : Wide_Character_Set) return Wide_Character_Set;
 
    function "-"
-     (Left, Right : in Wide_Character_Set)
-      return        Wide_Character_Set;
+     (Left, Right : Wide_Character_Set) return Wide_Character_Set;
 
    function Is_In
-     (Element : in Wide_Character;
-      Set     : in Wide_Character_Set)
-      return    Boolean;
+     (Element : Wide_Character;
+      Set     : Wide_Character_Set) return Boolean;
 
    function Is_Subset
-     (Elements : in Wide_Character_Set;
-      Set      : in Wide_Character_Set)
-      return     Boolean;
+     (Elements : Wide_Character_Set;
+      Set      : Wide_Character_Set) return Boolean;
 
    function "<="
-     (Left  : in Wide_Character_Set;
-      Right : in Wide_Character_Set)
-      return  Boolean
+     (Left  : Wide_Character_Set;
+      Right : Wide_Character_Set) return Boolean
    renames Is_Subset;
 
    subtype Wide_Character_Sequence is Wide_String;
    --  Alternative representation for a set of character values
 
    function To_Set
-     (Sequence  : in Wide_Character_Sequence)
-      return      Wide_Character_Set;
+     (Sequence : Wide_Character_Sequence) return Wide_Character_Set;
 
    function To_Set
-     (Singleton : in Wide_Character)
-      return      Wide_Character_Set;
+     (Singleton : Wide_Character) return Wide_Character_Set;
 
    function To_Sequence
-     (Set  : in Wide_Character_Set)
-      return Wide_Character_Sequence;
+     (Set : Wide_Character_Set) return Wide_Character_Sequence;
 
    -----------------------------------------
    -- Wide Character Mapping Declarations --
    -----------------------------------------
 
    type Wide_Character_Mapping is private;
+   pragma Preelaborable_Initialization (Wide_Character_Mapping);
    --  Representation for a wide character to wide character mapping:
 
    function Value
-     (Map     : in Wide_Character_Mapping;
-      Element : in Wide_Character)
-      return    Wide_Character;
+     (Map     : Wide_Character_Mapping;
+      Element : Wide_Character) return Wide_Character;
 
    Identity : constant Wide_Character_Mapping;
 
@@ -151,19 +137,16 @@ package Ada.Strings.Wide_Maps is
    ---------------------------------
 
    function To_Mapping
-     (From, To : in Wide_Character_Sequence)
-      return     Wide_Character_Mapping;
+     (From, To : Wide_Character_Sequence) return Wide_Character_Mapping;
 
    function To_Domain
-     (Map  : in Wide_Character_Mapping)
-      return Wide_Character_Sequence;
+     (Map : Wide_Character_Mapping) return Wide_Character_Sequence;
 
    function To_Range
-     (Map  : in Wide_Character_Mapping)
-      return Wide_Character_Sequence;
+     (Map : Wide_Character_Mapping) return Wide_Character_Sequence;
 
    type Wide_Character_Mapping_Function is
-      access function (From : in Wide_Character) return Wide_Character;
+      access function (From : Wide_Character) return Wide_Character;
 
 private
    package AF renames Ada.Finalization;