diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-11-23 14:32:44 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-11-23 14:32:44 +0100 |
| commit | b38c20a636ec4e92cdabecbfa487b742829ebe93 (patch) | |
| tree | e4cb2a009b5464c65617b77964d5b5b7ae9ba450 /gcc/ada/a-coorse.ads | |
| parent | 24fee494c559f58afeb921b96a755be8d952b1d3 (diff) | |
| download | gcc-b38c20a636ec4e92cdabecbfa487b742829ebe93.zip gcc-b38c20a636ec4e92cdabecbfa487b742829ebe93.tar.gz gcc-b38c20a636ec4e92cdabecbfa487b742829ebe93.tar.bz2 | |
[multiple changes]
2011-11-23 Matthew Heaney <heaney@adacore.com>
* a-coorse.ads, a-ciorse.ads, a-cborse.ads (Set_Iterator_Interfaces):
Renamed from Ordered_Set_Iterator_Interfaces.
* a-coorse.adb, a-ciorse.adb, a-cborse.adb (Iterator): Declared
Iterator type as limited (First, Last): Cursor return value
depends on iterator node value (Iterate): Use start position as
iterator node value (Next, Previous): Forward to corresponding
cursor-based operation.
* a-cohase.ads, a-cohase.adb: Implemented forward iterator.
* a-cihase.adb, a-cbhase.adb (Iterator): Removed unnecessary
node component (First, Next): Forward call to corresponding
cursor-based operation (Iterate): Representation of iterator no
longer has node component
2011-11-23 Hristian Kirtchev <kirtchev@adacore.com>
* exp_intr.adb (Expand_Unc_Deallocation): Ensure that the
dereference has a proper type before the side effect removal
mechanism kicks in.
* sem_ch3.adb (Analyze_Subtype_Declaration): Handle a rare case
where the base type of the subtype is a private itype created
to act as the partial view of a constrained record type. This
scenario manifests with equivalent class-wide types for records
with unknown discriminants.
2011-11-23 Jerome Guitton <guitton@adacore.com>
* s-osprim-vxworks.adb (Clock): Use Clock_RT_Ada.
2011-11-23 Thomas Quinot <quinot@adacore.com>
* s-oscons-tmplt.c: Fix unbalanced preprocessor directives Minor
reformatting/reorganization.
From-SVN: r181666
Diffstat (limited to 'gcc/ada/a-coorse.ads')
| -rw-r--r-- | gcc/ada/a-coorse.ads | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/a-coorse.ads b/gcc/ada/a-coorse.ads index 45e6ab9..39f69f5 100644 --- a/gcc/ada/a-coorse.ads +++ b/gcc/ada/a-coorse.ads @@ -65,7 +65,7 @@ package Ada.Containers.Ordered_Sets is No_Element : constant Cursor; - package Ordered_Set_Iterator_Interfaces is new + package Set_Iterator_Interfaces is new Ada.Iterator_Interfaces (Cursor, Has_Element); type Constant_Reference_Type @@ -227,12 +227,12 @@ package Ada.Containers.Ordered_Sets is function Iterate (Container : Set) - return Ordered_Set_Iterator_Interfaces.Reversible_Iterator'class; + return Set_Iterator_Interfaces.Reversible_Iterator'class; function Iterate (Container : Set; Start : Cursor) - return Ordered_Set_Iterator_Interfaces.Reversible_Iterator'class; + return Set_Iterator_Interfaces.Reversible_Iterator'class; generic type Key_Type (<>) is private; |