Skip to content

R
riscv-gcc-1
Commit 2a6b365a by Matthew Heaney Committed by Arnaud Charlet
Options

a-ciorse.ads, [...]: Marked with clauses as private, and controlled operations as overriding 

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
parent 8ee45952
Showing with 61 additions and 43 deletions
gcc/ada/a-cdlili.ads
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- 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 -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
...@@ -33,8 +33,8 @@ ...@@ -33,8 +33,8 @@
-- This unit was originally developed by Matthew J Heaney. -- -- This unit was originally developed by Matthew J Heaney. --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
with Ada.Finalization; private with Ada.Finalization;
with Ada.Streams; private with Ada.Streams;
generic generic
type Element_Type is private; type Element_Type is private;
...@@ -230,8 +230,10 @@ private ...@@ -230,8 +230,10 @@ private
Lock : Natural := 0; Lock : Natural := 0;
end record; end record;
overriding
procedure Adjust (Container : in out List); procedure Adjust (Container : in out List);
overriding
procedure Finalize (Container : in out List) renames Clear; procedure Finalize (Container : in out List) renames Clear;
use Ada.Streams; use Ada.Streams;
......
gcc/ada/a-cihase.ads
...@@ -2,12 +2,11 @@ ...@@ -2,12 +2,11 @@
-- -- -- --
-- GNAT LIBRARY COMPONENTS -- -- GNAT LIBRARY COMPONENTS --
-- -- -- --
-- A D A . C O N T A I N E R S . -- -- ADA.CONTAINERS.INDEFINITE_HASHED_SETS --
-- I N D E F I N I T E _ H A S H E D _ S E T S --
-- -- -- --
-- S p e c -- -- 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 -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
...@@ -34,9 +33,9 @@ ...@@ -34,9 +33,9 @@
-- This unit was originally developed by Matthew J Heaney. -- -- This unit was originally developed by Matthew J Heaney. --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
with Ada.Containers.Hash_Tables; private with Ada.Containers.Hash_Tables;
with Ada.Streams; private with Ada.Streams;
with Ada.Finalization; private with Ada.Finalization;
generic generic
type Element_Type (<>) is private; type Element_Type (<>) is private;
...@@ -417,8 +416,10 @@ private ...@@ -417,8 +416,10 @@ private
HT : HT_Types.Hash_Table_Type; HT : HT_Types.Hash_Table_Type;
end record; end record;
overriding
procedure Adjust (Container : in out Set); procedure Adjust (Container : in out Set);
overriding
procedure Finalize (Container : in out Set); procedure Finalize (Container : in out Set);
use HT_Types; use HT_Types;
......
gcc/ada/a-ciorma.ads
...@@ -2,12 +2,11 @@ ...@@ -2,12 +2,11 @@
-- -- -- --
-- GNAT LIBRARY COMPONENTS -- -- GNAT LIBRARY COMPONENTS --
-- -- -- --
-- A D A . C O N T A I N E R S . -- -- ADA.CONTAINERS.INDEFINITE_ORDERED_MAPS --
-- I N D E F I N I T E _ O R D E R E D _ M A P S --
-- -- -- --
-- S p e c -- -- 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 -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
...@@ -34,9 +33,9 @@ ...@@ -34,9 +33,9 @@
-- This unit was originally developed by Matthew J Heaney. -- -- This unit was originally developed by Matthew J Heaney. --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
with Ada.Containers.Red_Black_Trees; private with Ada.Containers.Red_Black_Trees;
with Ada.Finalization; private with Ada.Finalization;
with Ada.Streams; private with Ada.Streams;
generic generic
type Key_Type (<>) is private; type Key_Type (<>) is private;
...@@ -203,8 +202,10 @@ private ...@@ -203,8 +202,10 @@ private
Tree : Tree_Types.Tree_Type; Tree : Tree_Types.Tree_Type;
end record; end record;
overriding
procedure Adjust (Container : in out Map); procedure Adjust (Container : in out Map);
overriding
procedure Finalize (Container : in out Map) renames Clear; procedure Finalize (Container : in out Map) renames Clear;
use Red_Black_Trees; use Red_Black_Trees;
......
gcc/ada/a-ciormu.ads
...@@ -2,12 +2,11 @@ ...@@ -2,12 +2,11 @@
-- -- -- --
-- GNAT LIBRARY COMPONENTS -- -- GNAT LIBRARY COMPONENTS --
-- -- -- --
-- A D A . C O N T A I N E R S . -- -- ADA.CONTAINERS.INDEFINITE_ORDERED_MULTISETS --
-- 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 --
-- -- -- --
-- S p e c -- -- 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 -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
...@@ -34,9 +33,11 @@ ...@@ -34,9 +33,11 @@
-- This unit was originally developed by Matthew J Heaney. -- -- This unit was originally developed by Matthew J Heaney. --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
with Ada.Containers.Red_Black_Trees; -- Documentation of this unit is needed ???
with Ada.Finalization;
with Ada.Streams; private with Ada.Containers.Red_Black_Trees;
private with Ada.Finalization;
private with Ada.Streams;
generic generic
type Element_Type (<>) is private; type Element_Type (<>) is private;
...@@ -263,8 +264,10 @@ private ...@@ -263,8 +264,10 @@ private
Tree : Tree_Types.Tree_Type; Tree : Tree_Types.Tree_Type;
end record; end record;
overriding
procedure Adjust (Container : in out Set); procedure Adjust (Container : in out Set);
overriding
procedure Finalize (Container : in out Set) renames Clear; procedure Finalize (Container : in out Set) renames Clear;
use Red_Black_Trees; use Red_Black_Trees;
......
gcc/ada/a-ciorse.ads
...@@ -2,12 +2,11 @@ ...@@ -2,12 +2,11 @@
-- -- -- --
-- GNAT LIBRARY COMPONENTS -- -- GNAT LIBRARY COMPONENTS --
-- -- -- --
-- A D A . C O N T A I N E R S . -- -- ADA.CONTAINERS.INDEFINITE_ORDERED_SETS --
-- I N D E F I N I T E _ O R D E R E D _ S E T S --
-- -- -- --
-- S p e c -- -- 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 -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
...@@ -34,9 +33,9 @@ ...@@ -34,9 +33,9 @@
-- This unit was originally developed by Matthew J Heaney. -- -- This unit was originally developed by Matthew J Heaney. --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
with Ada.Containers.Red_Black_Trees; private with Ada.Containers.Red_Black_Trees;
with Ada.Finalization; private with Ada.Finalization;
with Ada.Streams; private with Ada.Streams;
generic generic
type Element_Type (<>) is private; type Element_Type (<>) is private;
...@@ -267,8 +266,10 @@ private ...@@ -267,8 +266,10 @@ private
Tree : Tree_Types.Tree_Type; Tree : Tree_Types.Tree_Type;
end record; end record;
overriding
procedure Adjust (Container : in out Set); procedure Adjust (Container : in out Set);
overriding
procedure Finalize (Container : in out Set) renames Clear; procedure Finalize (Container : in out Set) renames Clear;
use Red_Black_Trees; use Red_Black_Trees;
......
gcc/ada/a-cohase.ads
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- 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 -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
...@@ -33,9 +33,9 @@ ...@@ -33,9 +33,9 @@
-- This unit was originally developed by Matthew J Heaney. -- -- This unit was originally developed by Matthew J Heaney. --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
with Ada.Containers.Hash_Tables; private with Ada.Containers.Hash_Tables;
with Ada.Streams; private with Ada.Streams;
with Ada.Finalization; private with Ada.Finalization;
generic generic
type Element_Type is private; type Element_Type is private;
...@@ -416,8 +416,10 @@ private ...@@ -416,8 +416,10 @@ private
HT : HT_Types.Hash_Table_Type; HT : HT_Types.Hash_Table_Type;
end record; end record;
overriding
procedure Adjust (Container : in out Set); procedure Adjust (Container : in out Set);
overriding
procedure Finalize (Container : in out Set); procedure Finalize (Container : in out Set);
use HT_Types; use HT_Types;
......
gcc/ada/a-coorma.ads
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- 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 -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
...@@ -33,9 +33,9 @@ ...@@ -33,9 +33,9 @@
-- This unit was originally developed by Matthew J Heaney. -- -- This unit was originally developed by Matthew J Heaney. --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
with Ada.Containers.Red_Black_Trees; private with Ada.Containers.Red_Black_Trees;
with Ada.Finalization; private with Ada.Finalization;
with Ada.Streams; private with Ada.Streams;
generic generic
type Key_Type is private; type Key_Type is private;
...@@ -205,8 +205,10 @@ private ...@@ -205,8 +205,10 @@ private
Tree : Tree_Types.Tree_Type; Tree : Tree_Types.Tree_Type;
end record; end record;
overriding
procedure Adjust (Container : in out Map); procedure Adjust (Container : in out Map);
overriding
procedure Finalize (Container : in out Map) renames Clear; procedure Finalize (Container : in out Map) renames Clear;
use Red_Black_Trees; use Red_Black_Trees;
......
gcc/ada/a-coormu.ads
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- 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 -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
...@@ -33,9 +33,11 @@ ...@@ -33,9 +33,11 @@
-- This unit was originally developed by Matthew J Heaney. -- -- This unit was originally developed by Matthew J Heaney. --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
with Ada.Containers.Red_Black_Trees; -- Documentation is needed for this unit ???
with Ada.Finalization;
with Ada.Streams; private with Ada.Containers.Red_Black_Trees;
private with Ada.Finalization;
private with Ada.Streams;
generic generic
type Element_Type is private; type Element_Type is private;
...@@ -268,8 +270,10 @@ private ...@@ -268,8 +270,10 @@ private
Tree : Tree_Types.Tree_Type; Tree : Tree_Types.Tree_Type;
end record; end record;
overriding
procedure Adjust (Container : in out Set); procedure Adjust (Container : in out Set);
overriding
procedure Finalize (Container : in out Set) renames Clear; procedure Finalize (Container : in out Set) renames Clear;
use Red_Black_Trees; use Red_Black_Trees;
......
gcc/ada/a-coorse.ads
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- 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 -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
...@@ -33,9 +33,9 @@ ...@@ -33,9 +33,9 @@
-- This unit was originally developed by Matthew J Heaney. -- -- This unit was originally developed by Matthew J Heaney. --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
with Ada.Containers.Red_Black_Trees; private with Ada.Containers.Red_Black_Trees;
with Ada.Finalization; private with Ada.Finalization;
with Ada.Streams; private with Ada.Streams;
generic generic
type Element_Type is private; type Element_Type is private;
...@@ -256,8 +256,10 @@ private ...@@ -256,8 +256,10 @@ private
Tree : Tree_Types.Tree_Type; Tree : Tree_Types.Tree_Type;
end record; end record;
overriding
procedure Adjust (Container : in out Set); procedure Adjust (Container : in out Set);
overriding
procedure Finalize (Container : in out Set) renames Clear; procedure Finalize (Container : in out Set) renames Clear;
use Red_Black_Trees; use Red_Black_Trees;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment