diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-29 16:25:19 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-29 16:25:19 +0200 |
| commit | d85fd922e12315cd65061ed85f7afb40fe7ff958 (patch) | |
| tree | 1a7fbadf4793fca844818142d46165e676ff37cc /gcc/ada/a-cbhama.ads | |
| parent | fd3d2680c8c025f29cb349a9af6292cf8bea50f5 (diff) | |
| download | gcc-d85fd922e12315cd65061ed85f7afb40fe7ff958.tar.gz | |
[multiple changes]
2011-08-29 Robert Dewar <dewar@adacore.com>
* a-cdlili.ads, a-coinve.ads, a-coorma.adb, a-coorma.ads, s-tassta.adb,
a-cborma.adb, a-cborma.ads, a-cohama.ads, a-coorse.ads, a-cbhama.ads,
a-cborse.ads, a-cobove.adb, a-cobove.ads, a-cbhase.ads: Minor
reformatting.
2011-08-29 Tristan Gingold <gingold@adacore.com>
* exp_ch7.adb, exp_ch7.ads (Build_Exception_Handler): Move its spec to
package spec.
* exp_intr.adb (Expand_Unc_Deallocation): Use Build_Exception_Handler.
* a-except.adb, a-except-2005.adb (Rcheck_22): Do not defer aborts
while raising PE.
From-SVN: r178245
Diffstat (limited to 'gcc/ada/a-cbhama.ads')
| -rw-r--r-- | gcc/ada/a-cbhama.ads | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/gcc/ada/a-cbhama.ads b/gcc/ada/a-cbhama.ads index 003a919a6e3..4d7cfa2225b 100644 --- a/gcc/ada/a-cbhama.ads +++ b/gcc/ada/a-cbhama.ads @@ -33,7 +33,7 @@ private with Ada.Containers.Hash_Tables; -with Ada.Streams; use Ada.Streams; +with Ada.Streams; use Ada.Streams; with Ada.Iterator_Interfaces; generic @@ -321,11 +321,11 @@ package Ada.Containers.Bounded_Hashed_Maps is for Reference_Type'Read use Read; function Constant_Reference - (Container : Map; Key : Key_Type) -- SHOULD BE ALIASED - return Constant_Reference_Type; + (Container : Map; + Key : Key_Type) -- SHOULD BE ALIASED??? + return Constant_Reference_Type; - function Reference (Container : Map; Key : Key_Type) - return Reference_Type; + function Reference (Container : Map; Key : Key_Type) return Reference_Type; private pragma Inline (Length); @@ -369,6 +369,12 @@ private type Map_Access is access all Map; for Map_Access'Storage_Size use 0; + -- Note: If a Cursor object has no explicit initialization expression, + -- it must default initialize to the same value as constant No_Element. + -- The Node component of type Cursor has scalar type Count_Type, so it + -- requires an explicit initialization expression of its own declaration, + -- in order for objects of record type Cursor to properly initialize. + type Cursor is record Container : Map_Access; Node : Count_Type := 0; |