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-ciorma.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-ciorma.ads')
| -rw-r--r-- | gcc/ada/a-ciorma.ads | 31 |
1 files changed, 16 insertions, 15 deletions
diff --git a/gcc/ada/a-ciorma.ads b/gcc/ada/a-ciorma.ads index 814f062..7599b3e 100644 --- a/gcc/ada/a-ciorma.ads +++ b/gcc/ada/a-ciorma.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.Red_Black_Trees; private with Ada.Finalization; private with Ada.Streams; @@ -259,6 +260,18 @@ private use Ada.Finalization; use Ada.Streams; + procedure Write + (Stream : not null access Root_Stream_Type'Class; + Container : Map); + + for Map'Write use Write; + + procedure Read + (Stream : not null access Root_Stream_Type'Class; + Container : out Map); + + for Map'Read use Read; + type Map_Access is access all Map; for Map_Access'Storage_Size use 0; @@ -279,20 +292,6 @@ private for Cursor'Read use Read; - No_Element : constant Cursor := Cursor'(null, null); - - procedure Write - (Stream : not null access Root_Stream_Type'Class; - Container : Map); - - for Map'Write use Write; - - procedure Read - (Stream : not null access Root_Stream_Type'Class; - Container : out Map); - - for Map'Read use Read; - type Constant_Reference_Type (Element : not null access constant Element_Type) is null record; @@ -331,4 +330,6 @@ private Busy => 0, Lock => 0)); + No_Element : constant Cursor := Cursor'(null, null); + end Ada.Containers.Indefinite_Ordered_Maps; |