diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-26 07:43:07 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-26 07:43:07 +0000 |
commit | 0bf99ff62ae6445221072af0805f462eb2cb0d53 (patch) | |
tree | fc0955c8e60dde8716d7a83458076da872de5a60 /gcc/ada/a-ciorse.ads | |
parent | b40cc2cb89352a95e00fc1d02999efba6ef04a9d (diff) | |
download | ppe42-gcc-0bf99ff62ae6445221072af0805f462eb2cb0d53.tar.gz ppe42-gcc-0bf99ff62ae6445221072af0805f462eb2cb0d53.zip |
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
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@133582 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-ciorse.ads')
-rw-r--r-- | gcc/ada/a-ciorse.ads | 13 |
1 files changed, 7 insertions, 6 deletions
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; |