diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 14:25:19 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 14:25:19 +0000 |
| commit | 2bb1c36656bb1bcac3ae654ecbdc54b582ed298a (patch) | |
| tree | 1a7fbadf4793fca844818142d46165e676ff37cc /gcc/ada/a-cborse.ads | |
| parent | 15044392b374476c15645b61ce3802439e82d792 (diff) | |
| download | gcc-2bb1c36656bb1bcac3ae654ecbdc54b582ed298a.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178245 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-cborse.ads')
| -rw-r--r-- | gcc/ada/a-cborse.ads | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/a-cborse.ads b/gcc/ada/a-cborse.ads index 24b8bdc6e93..e56b71b4c61 100644 --- a/gcc/ada/a-cborse.ads +++ b/gcc/ada/a-cborse.ads @@ -255,6 +255,12 @@ private type Set_Access is access all Set; for Set_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 : Set_Access; Node : Count_Type := 0; |