a-swunha.ads, [...]: Removed.

2005-06-14  Matthew Heaney  <heaney@adacore.com>

	* a-swunha.ads, a-swunha.adb: Removed. Replaced by a-swuwha.ad[sb]
	* a-swuwha.ads, a-swuwha.adb: New files

	* a-szunha.ads, a-szunha.adb: Removed, replaced by a-szuzha.ad[sb]
	* a-szuzha.ads, a-szuzha.adb: New files.

	* a-rbtgso.adb, a-crbtgo.ads, a-crbtgo.adb, a-crbtgk.ads,
	a-crbtgk.adb, a-crbltr.ads, a-coorse.ads, a-coorse.adb, a-convec.ads,
	a-convec.adb, a-coinve.ads, a-coinve.adb, a-cohata.ads, a-cohama.ads,
	a-cohama.adb, a-ciorse.ads, a-ciorse.adb, a-cihama.ads, a-cihama.adb,
	a-cidlli.ads, a-cidlli.adb, a-chtgop.ads, a-chtgop.adb, a-cdlili.ads,
	a-cdlili.adb, a-coormu.adb, a-ciormu.adb, a-cihase.adb, a-cohase.adb,
	a-cohase.ads, a-ciorma.ads, a-coorma.ads, a-ciormu.ads, a-coormu.ads,
	a-swunha.adb, a-stunha.adb, a-ciorma.adb, a-coorma.adb, a-shcain.ads,
	a-shcain.adb, a-chtgke.ads, a-chtgke.adb, a-stwiha.ads, a-stwiha.adb,
	a-strhas.adb, a-stzhas.adb: synchronized to the latest version of the
	Ada 2005 RM.

From-SVN: r101069

1 files changed, 63 insertions, 11 deletions

diff --git a/gcc/ada/a-crbtgo.ads b/gcc/ada/a-crbtgo.ads
index 3e13ae5..84ab260 100644
--- a/gcc/ada/a-crbtgo.ads
+++ b/gcc/ada/a-crbtgo.ads
@@ -2,23 +2,44 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---            ADA.CONTAINERS.RED_BLACK_TREES.GENERIC_OPERATIONS             --
+--        A D A . C O N T A I N E R S . R E D _ B L A C K _ T R E E S .     --
+--                    G E N E R I C _ O P E R A T I O N S                   --
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
--- This specification is adapted from the Ada Reference Manual for use with --
--- GNAT.  In accordance with the copyright of that document, you can freely --
--- copy and modify this specification,  provided that if you redistribute a --
--- modified version,  any changes that you have made are clearly indicated. --
+--          Copyright (C) 2004-2005 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 --
+-- apply solely to the  contents of the part following the private keyword. --
+--                                                                          --
+-- 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- --
+-- ware  Foundation;  either version 2,  or (at your option) any later ver- --
+-- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
+-- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
+-- 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.                                                      --
+--                                                                          --
+-- As a special exception,  if other files  instantiate  generics from this --
+-- unit, or you link  this unit with other files  to produce an executable, --
+-- this  unit  does not  by itself cause  the resulting  executable  to  be --
+-- covered  by the  GNU  General  Public  License.  This exception does not --
+-- however invalidate  any other reasons why  the executable file  might be --
+-- covered by the  GNU Public License.                                      --
+--                                                                          --
+-- This unit was originally developed by Matthew J Heaney.                  --
 ------------------------------------------------------------------------------
 
+with Ada.Streams; use Ada.Streams;
+
 generic
    with package Tree_Types is new Generic_Tree_Types (<>);
    use Tree_Types;
 
-   Null_Node : Node_Access;
-
    with function  Parent (Node : Node_Access) return Node_Access is <>;
    with procedure Set_Parent (Node : Node_Access; Parent : Node_Access) is <>;
    with function  Left (Node : Node_Access) return Node_Access is <>;
@@ -41,8 +62,6 @@ pragma Pure;
 
    function Previous (Node : Node_Access) return Node_Access;
 
-   procedure Move (Target, Source : in out Tree_Type);
-
    generic
       with function Is_Equal (L, R : Node_Access) return Boolean;
    function Generic_Equal (Left, Right : Tree_Type) return Boolean;
@@ -52,6 +71,27 @@ pragma Pure;
       Node : Node_Access);
 
    generic
+      with procedure Free (X : in out Node_Access);
+   procedure Generic_Delete_Tree (X : in out Node_Access);
+
+   generic
+      with function Copy_Node (Source : Node_Access) return Node_Access;
+      with procedure Delete_Tree (X : in out Node_Access);
+   function Generic_Copy_Tree (Source_Root : Node_Access) return Node_Access;
+
+   generic
+      with function Copy_Tree (Root : Node_Access) return Node_Access;
+   procedure Generic_Adjust (Tree : in out Tree_Type);
+
+   generic
+      with procedure Delete_Tree (X : in out Node_Access);
+   procedure Generic_Clear (Tree : in out Tree_Type);
+
+   generic
+      with procedure Clear (Tree : in out Tree_Type);
+   procedure Generic_Move (Target, Source : in out Tree_Type);
+
+   generic
       with procedure Process (Node : Node_Access) is <>;
    procedure Generic_Iteration (Tree : Tree_Type);
 
@@ -60,8 +100,20 @@ pragma Pure;
    procedure Generic_Reverse_Iteration (Tree : Tree_Type);
 
    generic
-      with function New_Node return Node_Access is <>;
-   procedure Generic_Read (Tree : in out Tree_Type; N : Count_Type);
+      with procedure Write_Node
+        (Stream : access Root_Stream_Type'Class;
+         Node   : Node_Access);
+   procedure Generic_Write
+     (Stream : access Root_Stream_Type'Class;
+      Tree   : Tree_Type);
+
+   generic
+      with procedure Clear (Tree : in out Tree_Type);
+      with function Read_Node
+        (Stream : access Root_Stream_Type'Class) return Node_Access;
+   procedure Generic_Read
+     (Stream : access Root_Stream_Type'Class;
+      Tree   : in out Tree_Type);
 
    procedure Rebalance_For_Insert
      (Tree : in out Tree_Type;