aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada
diff options
context:
space:
mode:
authorMatthew Heaney <heaney@adacore.com>2008-03-26 08:43:07 +0100
committerArnaud Charlet <charlet@gcc.gnu.org>2008-03-26 08:43:07 +0100
commit2a6b365a3049bc42f9e94060c32d4b639244cf3f (patch)
treefc0955c8e60dde8716d7a83458076da872de5a60 /gcc/ada
parent8ee459524b2c80ef0cbc599b99cec41f1926e937 (diff)
downloadgcc-2a6b365a3049bc42f9e94060c32d4b639244cf3f.zip
gcc-2a6b365a3049bc42f9e94060c32d4b639244cf3f.tar.gz
gcc-2a6b365a3049bc42f9e94060c32d4b639244cf3f.tar.bz2
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
Diffstat (limited to 'gcc/ada')
-rw-r--r--gcc/ada/a-cdlili.ads8
-rw-r--r--gcc/ada/a-cihase.ads13
-rw-r--r--gcc/ada/a-ciorma.ads13
-rw-r--r--gcc/ada/a-ciormu.ads15
-rw-r--r--gcc/ada/a-ciorse.ads13
-rw-r--r--gcc/ada/a-cohase.ads10
-rw-r--r--gcc/ada/a-coorma.ads10
-rw-r--r--gcc/ada/a-coormu.ads12
-rw-r--r--gcc/ada/a-coorse.ads10
9 files changed, 61 insertions, 43 deletions
diff --git a/gcc/ada/a-cdlili.ads b/gcc/ada/a-cdlili.ads
index e8a0488..c5a6149 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 aaf183b..489e68f 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 25033a9..3b483fc 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 fec119b..e18e44f 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 67e383f..dae349b 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 e1600ff..4ed3734 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 917c1c7..e620badb 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 bdb2150..05d71df 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 2df6353..f0f6227 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;
generated by cgit v1.1 at 2025-02-27 02:07:15 +0000