diff options
| author | Matthew Heaney <heaney@adacore.com> | 2008-03-26 08:43:07 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-03-26 08:43:07 +0100 |
| commit | 2a6b365a3049bc42f9e94060c32d4b639244cf3f (patch) | |
| tree | fc0955c8e60dde8716d7a83458076da872de5a60 /gcc/ada/a-coorma.ads | |
| parent | 8ee459524b2c80ef0cbc599b99cec41f1926e937 (diff) | |
| download | gcc-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/a-coorma.ads')
| -rw-r--r-- | gcc/ada/a-coorma.ads | 10 |
1 files changed, 6 insertions, 4 deletions
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; |