diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-26 20:02:45 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-26 20:02:45 +0000 |
| commit | 261a23bc4f7fbd525cb2f73582743252d2d2f8ac (patch) | |
| tree | f3c8a991bcf4caac8dd5516247a2d92c9f77ee3b /gcc/ada/a-cihase.ads | |
| parent | 0c164b6eab526a1d0db4a3d08058262ddd476be6 (diff) | |
| download | gcc-261a23bc4f7fbd525cb2f73582743252d2d2f8ac.tar.gz | |
2008-03-26 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk r133612 (in particular gcc/Makefile.in with auto dependencies)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@133613 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-cihase.ads')
| -rw-r--r-- | gcc/ada/a-cihase.ads | 13 |
1 files changed, 7 insertions, 6 deletions
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; |