diff options
| author | Matthew Heaney <heaney@adacore.com> | 2012-01-23 09:35:53 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-01-23 10:35:53 +0100 |
| commit | 3c24c853da7ea2106fe07213fdf1efd43b86bddf (patch) | |
| tree | b1fee48f14a9a5cc25d00c2a2db9351c395f6a27 /gcc/ada/a-cohase.ads | |
| parent | c61b6f0f3c7d3419603e9143a7065fefb3340247 (diff) | |
| download | gcc-3c24c853da7ea2106fe07213fdf1efd43b86bddf.zip gcc-3c24c853da7ea2106fe07213fdf1efd43b86bddf.tar.gz gcc-3c24c853da7ea2106fe07213fdf1efd43b86bddf.tar.bz2 | |
a-cohase.ads, [...] (Cursor'Read, [...]): Declare in private part.
2012-01-23 Matthew Heaney <heaney@adacore.com>
* a-cohase.ads, a-cihase.ads, a-cbhase.ads, a-coorse.ads,
a-ciorse.ads, a-cborse.ads, a-cohama.ads, a-cihama.ads, a-cbhama.ads,
a-coorma.ads, a-ciorma.ads, a-cborma.ads, a-cdlili.ads, a-cidlli.ads,
a-cbdlli.ads, a-convec.ads, a-coinve.ads, a-cobove.ads (Cursor'Read,
Cursor'Write): Declare in private part.
(Reference_Type'Read, Reference_Type'Write): Ditto.
(Constant_Reference_Type'Read, Constant_Reference_Type'Write): Ditto.
From-SVN: r183418
Diffstat (limited to 'gcc/ada/a-cohase.ads')
| -rw-r--r-- | gcc/ada/a-cohase.ads | 31 |
1 files changed, 16 insertions, 15 deletions
diff --git a/gcc/ada/a-cohase.ads b/gcc/ada/a-cohase.ads index 97b209d..88b5f4b 100644 --- a/gcc/ada/a-cohase.ads +++ b/gcc/ada/a-cohase.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2004-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 2004-2012, 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 -- @@ -32,6 +32,7 @@ ------------------------------------------------------------------------------ with Ada.Iterator_Interfaces; + private with Ada.Containers.Hash_Tables; private with Ada.Streams; private with Ada.Finalization; @@ -476,6 +477,18 @@ private use Ada.Finalization; use Ada.Streams; + procedure Write + (Stream : not null access Root_Stream_Type'Class; + Container : Set); + + for Set'Write use Write; + + procedure Read + (Stream : not null access Root_Stream_Type'Class; + Container : out Set); + + for Set'Read use Read; + type Set_Access is access all Set; for Set_Access'Storage_Size use 0; @@ -496,20 +509,6 @@ private for Cursor'Read use Read; - No_Element : constant Cursor := (Container => null, Node => null); - - procedure Write - (Stream : not null access Root_Stream_Type'Class; - Container : Set); - - for Set'Write use Write; - - procedure Read - (Stream : not null access Root_Stream_Type'Class; - Container : out Set); - - for Set'Read use Read; - type Constant_Reference_Type (Element : not null access constant Element_Type) is null record; @@ -527,4 +526,6 @@ private Empty_Set : constant Set := (Controlled with HT => (null, 0, 0, 0)); + No_Element : constant Cursor := (Container => null, Node => null); + end Ada.Containers.Hashed_Sets; |