a-ciorse.ads, [...]: Marked with clauses as private, and controlled operations as...
authorMatthew Heaney <heaney@adacore.com>
Wed, 26 Mar 2008 07:43:07 +0000 (08:43 +0100)
committerArnaud Charlet <charlet@gcc.gnu.org>
Wed, 26 Mar 2008 07:43:07 +0000 (08:43 +0100)
2008-03-26  Matthew Heaney  <heaney@adacore.com>

* a-ciorse.ads, a-cidlli.ads, a-cdlili.ads, a-cihase.ads, a-cohase.ads,
a-ciorma.ads, a-coorma.ads, a-ciormu.ads, a-coormu.ads, a-coorse.ads:
Marked with clauses as private, and controlled operations as overriding

From-SVN: r133582

gcc/ada/a-cdlili.ads
gcc/ada/a-cihase.ads
gcc/ada/a-ciorma.ads
gcc/ada/a-ciormu.ads
gcc/ada/a-ciorse.ads
gcc/ada/a-cohase.ads
gcc/ada/a-coorma.ads
gcc/ada/a-coormu.ads
gcc/ada/a-coorse.ads

index e8a0488b2b4e01a0ccc1ce5378d6d2cc48c4b7c7..c5a6149283ede22a5823e0660ad49480c98deb88 100644 (file)
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 2004-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 2004-2008, 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 --
@@ -33,8 +33,8 @@
 -- This unit was originally developed by Matthew J Heaney.                  --
 ------------------------------------------------------------------------------
 
-with Ada.Finalization;
-with Ada.Streams;
+private with Ada.Finalization;
+private with Ada.Streams;
 
 generic
    type Element_Type is private;
@@ -230,8 +230,10 @@ private
         Lock   : Natural := 0;
      end record;
 
+   overriding
    procedure Adjust (Container : in out List);
 
+   overriding
    procedure Finalize (Container : in out List) renames Clear;
 
    use Ada.Streams;
index aaf183b01c88fcefbf8cc1101eb025453a639d0a..489e68fae69983a9801bbd69ff068560ffa68040 100644 (file)
@@ -2,12 +2,11 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---                      A D A . C O N T A I N E R S .                       --
---               I N D E F I N I T E _ H A S H E D _ S E T S                --
+--                  ADA.CONTAINERS.INDEFINITE_HASHED_SETS                   --
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 2004-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 2004-2008, 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 --
@@ -34,9 +33,9 @@
 -- This unit was originally developed by Matthew J Heaney.                  --
 ------------------------------------------------------------------------------
 
-with Ada.Containers.Hash_Tables;
-with Ada.Streams;
-with Ada.Finalization;
+private with Ada.Containers.Hash_Tables;
+private with Ada.Streams;
+private with Ada.Finalization;
 
 generic
    type Element_Type (<>) is private;
@@ -417,8 +416,10 @@ private
       HT : HT_Types.Hash_Table_Type;
    end record;
 
+   overriding
    procedure Adjust (Container : in out Set);
 
+   overriding
    procedure Finalize (Container : in out Set);
 
    use HT_Types;
index 25033a9356d5aafece3219fa6d4370350e0044f0..3b483fcdd38deb333d8d781a2a241771e95881e3 100644 (file)
@@ -2,12 +2,11 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---                      A D A . C O N T A I N E R S .                       --
---             I N D E F I N I T E _ O R D E R E D _ M A P S                --
+--                 ADA.CONTAINERS.INDEFINITE_ORDERED_MAPS                   --
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 2004-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 2004-2008, 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 --
@@ -34,9 +33,9 @@
 -- This unit was originally developed by Matthew J Heaney.                  --
 ------------------------------------------------------------------------------
 
-with Ada.Containers.Red_Black_Trees;
-with Ada.Finalization;
-with Ada.Streams;
+private with Ada.Containers.Red_Black_Trees;
+private with Ada.Finalization;
+private with Ada.Streams;
 
 generic
    type Key_Type (<>) is private;
@@ -203,8 +202,10 @@ private
       Tree : Tree_Types.Tree_Type;
    end record;
 
+   overriding
    procedure Adjust (Container : in out Map);
 
+   overriding
    procedure Finalize (Container : in out Map) renames Clear;
 
    use Red_Black_Trees;
index fec119b28508227579805e73e1dfb5686d91dee2..e18e44fca9093a173bdf4523be85470136e29110 100644 (file)
@@ -2,12 +2,11 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---                      A D A . C O N T A I N E R S .                       --
---         I N D E F I N I T E _ O R D E R E D _ M U L T I S E T S          --
+--               ADA.CONTAINERS.INDEFINITE_ORDERED_MULTISETS                --
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 2004-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 2004-2008, 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 --
 -- This unit was originally developed by Matthew J Heaney.                  --
 ------------------------------------------------------------------------------
 
-with Ada.Containers.Red_Black_Trees;
-with Ada.Finalization;
-with Ada.Streams;
+--  Documentation of this unit is needed ???
+
+private with Ada.Containers.Red_Black_Trees;
+private with Ada.Finalization;
+private with Ada.Streams;
 
 generic
    type Element_Type (<>) is private;
@@ -263,8 +264,10 @@ private
       Tree : Tree_Types.Tree_Type;
    end record;
 
+   overriding
    procedure Adjust (Container : in out Set);
 
+   overriding
    procedure Finalize (Container : in out Set) renames Clear;
 
    use Red_Black_Trees;
index 67e383fb9d2b648697e9944e7b748227f3baa769..dae349b50f705dc5befb5b25efa34c00d5ae8ebf 100644 (file)
@@ -2,12 +2,11 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---                      A D A . C O N T A I N E R S .                       --
---              I N D E F I N I T E _ O R D E R E D _ S E T S               --
+--                 ADA.CONTAINERS.INDEFINITE_ORDERED_SETS                   --
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 2004-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 2004-2008, 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 --
@@ -34,9 +33,9 @@
 -- This unit was originally developed by Matthew J Heaney.                  --
 ------------------------------------------------------------------------------
 
-with Ada.Containers.Red_Black_Trees;
-with Ada.Finalization;
-with Ada.Streams;
+private with Ada.Containers.Red_Black_Trees;
+private with Ada.Finalization;
+private with Ada.Streams;
 
 generic
    type Element_Type (<>) is private;
@@ -267,8 +266,10 @@ private
       Tree : Tree_Types.Tree_Type;
    end record;
 
+   overriding
    procedure Adjust (Container : in out Set);
 
+   overriding
    procedure Finalize (Container : in out Set) renames Clear;
 
    use Red_Black_Trees;
index e1600ff73731dc93a21d144f8c9b7d4442d9fbef..4ed3734d28ac3d91115c5ed6a506005f8bbc7eda 100644 (file)
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 2004-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 2004-2008, 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 --
@@ -33,9 +33,9 @@
 -- This unit was originally developed by Matthew J Heaney.                  --
 ------------------------------------------------------------------------------
 
-with Ada.Containers.Hash_Tables;
-with Ada.Streams;
-with Ada.Finalization;
+private with Ada.Containers.Hash_Tables;
+private with Ada.Streams;
+private with Ada.Finalization;
 
 generic
    type Element_Type is private;
@@ -416,8 +416,10 @@ private
       HT : HT_Types.Hash_Table_Type;
    end record;
 
+   overriding
    procedure Adjust (Container : in out Set);
 
+   overriding
    procedure Finalize (Container : in out Set);
 
    use HT_Types;
index 917c1c7b1e00834735a89264082ad39dbbaa1f0c..e620badb09d55c48d0b8c3f51a7cfea4e6e80b3d 100644 (file)
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 2004-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 2004-2008, 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 --
@@ -33,9 +33,9 @@
 -- This unit was originally developed by Matthew J Heaney.                  --
 ------------------------------------------------------------------------------
 
-with Ada.Containers.Red_Black_Trees;
-with Ada.Finalization;
-with Ada.Streams;
+private with Ada.Containers.Red_Black_Trees;
+private with Ada.Finalization;
+private with Ada.Streams;
 
 generic
    type Key_Type is private;
@@ -205,8 +205,10 @@ private
       Tree : Tree_Types.Tree_Type;
    end record;
 
+   overriding
    procedure Adjust (Container : in out Map);
 
+   overriding
    procedure Finalize (Container : in out Map) renames Clear;
 
    use Red_Black_Trees;
index bdb2150e014c6e9fa66b31be3f2b65c156908117..05d71df4b0ea8bcf1d1ad92c5f51486a9405b565 100644 (file)
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 2004-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 2004-2008, 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 --
 -- This unit was originally developed by Matthew J Heaney.                  --
 ------------------------------------------------------------------------------
 
-with Ada.Containers.Red_Black_Trees;
-with Ada.Finalization;
-with Ada.Streams;
+--  Documentation is needed for this unit ???
+
+private with Ada.Containers.Red_Black_Trees;
+private with Ada.Finalization;
+private with Ada.Streams;
 
 generic
    type Element_Type is private;
@@ -268,8 +270,10 @@ private
       Tree : Tree_Types.Tree_Type;
    end record;
 
+   overriding
    procedure Adjust (Container : in out Set);
 
+   overriding
    procedure Finalize (Container : in out Set) renames Clear;
 
    use Red_Black_Trees;
index 2df6353fa3b597e265c28f1c550ff49c733e25e8..f0f62273c2c512bc2a0b2f61bb73c05bc4900238 100644 (file)
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 2004-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 2004-2008, 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 --
@@ -33,9 +33,9 @@
 -- This unit was originally developed by Matthew J Heaney.                  --
 ------------------------------------------------------------------------------
 
-with Ada.Containers.Red_Black_Trees;
-with Ada.Finalization;
-with Ada.Streams;
+private with Ada.Containers.Red_Black_Trees;
+private with Ada.Finalization;
+private with Ada.Streams;
 
 generic
    type Element_Type is private;
@@ -256,8 +256,10 @@ private
       Tree : Tree_Types.Tree_Type;
    end record;
 
+   overriding
    procedure Adjust (Container : in out Set);
 
+   overriding
    procedure Finalize (Container : in out Set) renames Clear;
 
    use Red_Black_Trees;