From 2a6b365a3049bc42f9e94060c32d4b639244cf3f Mon Sep 17 00:00:00 2001 From: Matthew Heaney Date: Wed, 26 Mar 2008 08:43:07 +0100 Subject: [PATCH] a-ciorse.ads, [...]: Marked with clauses as private, and controlled operations as overriding 2008-03-26 Matthew Heaney * 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 | 8 +++++--- gcc/ada/a-cihase.ads | 13 +++++++------ gcc/ada/a-ciorma.ads | 13 +++++++------ gcc/ada/a-ciormu.ads | 15 +++++++++------ gcc/ada/a-ciorse.ads | 13 +++++++------ gcc/ada/a-cohase.ads | 10 ++++++---- gcc/ada/a-coorma.ads | 10 ++++++---- gcc/ada/a-coormu.ads | 12 ++++++++---- gcc/ada/a-coorse.ads | 10 ++++++---- 9 files changed, 61 insertions(+), 43 deletions(-) diff --git a/gcc/ada/a-cdlili.ads b/gcc/ada/a-cdlili.ads index e8a0488b2b4..c5a6149283e 100644 --- a/gcc/ada/a-cdlili.ads +++ b/gcc/ada/a-cdlili.ads @@ -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; diff --git a/gcc/ada/a-cihase.ads b/gcc/ada/a-cihase.ads index aaf183b01c8..489e68fae69 100644 --- a/gcc/ada/a-cihase.ads +++ b/gcc/ada/a-cihase.ads @@ -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; diff --git a/gcc/ada/a-ciorma.ads b/gcc/ada/a-ciorma.ads index 25033a9356d..3b483fcdd38 100644 --- a/gcc/ada/a-ciorma.ads +++ b/gcc/ada/a-ciorma.ads @@ -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; diff --git a/gcc/ada/a-ciormu.ads b/gcc/ada/a-ciormu.ads index fec119b2850..e18e44fca90 100644 --- a/gcc/ada/a-ciormu.ads +++ b/gcc/ada/a-ciormu.ads @@ -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 -- @@ -34,9 +33,11 @@ -- 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; diff --git a/gcc/ada/a-ciorse.ads b/gcc/ada/a-ciorse.ads index 67e383fb9d2..dae349b50f7 100644 --- a/gcc/ada/a-ciorse.ads +++ b/gcc/ada/a-ciorse.ads @@ -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; diff --git a/gcc/ada/a-cohase.ads b/gcc/ada/a-cohase.ads index e1600ff7373..4ed3734d28a 100644 --- a/gcc/ada/a-cohase.ads +++ b/gcc/ada/a-cohase.ads @@ -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; diff --git a/gcc/ada/a-coorma.ads b/gcc/ada/a-coorma.ads index 917c1c7b1e0..e620badb09d 100644 --- a/gcc/ada/a-coorma.ads +++ b/gcc/ada/a-coorma.ads @@ -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; diff --git a/gcc/ada/a-coormu.ads b/gcc/ada/a-coormu.ads index bdb2150e014..05d71df4b0e 100644 --- a/gcc/ada/a-coormu.ads +++ b/gcc/ada/a-coormu.ads @@ -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,11 @@ -- 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; diff --git a/gcc/ada/a-coorse.ads b/gcc/ada/a-coorse.ads index 2df6353fa3b..f0f62273c2c 100644 --- a/gcc/ada/a-coorse.ads +++ b/gcc/ada/a-coorse.ads @@ -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; -- 2.30.2