From 2b89c55cc599a0c13e3514eeabd20d4893b235b2 Mon Sep 17 00:00:00 2001 From: charlet Date: Wed, 23 Nov 2011 13:32:44 +0000 Subject: 2011-11-23 Matthew Heaney * 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 * 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 * s-osprim-vxworks.adb (Clock): Use Clock_RT_Ada. 2011-11-23 Thomas Quinot * s-oscons-tmplt.c: Fix unbalanced preprocessor directives Minor reformatting/reorganization. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@181666 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/a-coorse.ads | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'gcc/ada/a-coorse.ads') diff --git a/gcc/ada/a-coorse.ads b/gcc/ada/a-coorse.ads index 45e6ab90a73..39f69f5eff0 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; -- cgit v1.2.1