diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-10-06 19:24:49 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-10-06 19:24:49 +0000 |
| commit | e3c8326394dd0c0e89ecb0773fadfb226bd4e523 (patch) | |
| tree | 9c94e0d985fc138c19bf5450274084c744d41e82 /gcc/ada/a-cbhase.ads | |
| parent | 498af5fea6b9cfd3d66b5212cf0768ca9427185a (diff) | |
| download | ppe42-gcc-e3c8326394dd0c0e89ecb0773fadfb226bd4e523.tar.gz ppe42-gcc-e3c8326394dd0c0e89ecb0773fadfb226bd4e523.zip | |
2011-10-06 Robert Dewar <dewar@adacore.com>
* a-ciorse.adb, a-cihase.adb, a-cihase.ads, a-coorse.adb,
a-cborse.adb, a-comutr.adb, a-ciorma.adb, a-cbmutr.adb,
a-cbmutr.ads, a-cbhase.adb, a-cbhase.ads: Minor reformatting and code
reorganization (use conditional expressions).
2011-10-06 Robert Dewar <dewar@adacore.com>
* sem_res.adb (Resolve_Arithmetic_Op): Fix bad warning for
floating divide by zero.
2011-10-06 Ed Schonberg <schonberg@adacore.com>
* sem_ch6.adb: Limited interfaces that are not immutably limited
are OK in return statements.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@179629 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-cbhase.ads')
| -rw-r--r-- | gcc/ada/a-cbhase.ads | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/gcc/ada/a-cbhase.ads b/gcc/ada/a-cbhase.ads index c72b8ab8597..3f6b6696871 100644 --- a/gcc/ada/a-cbhase.ads +++ b/gcc/ada/a-cbhase.ads @@ -148,8 +148,7 @@ package Ada.Containers.Bounded_Hashed_Sets is function Constant_Reference (Container : aliased Set; - Position : Cursor) - return Constant_Reference_Type; + Position : Cursor) return Constant_Reference_Type; procedure Assign (Target : in out Set; Source : Set); -- If Target denotes the same object as Source, then the operation has no @@ -355,8 +354,9 @@ package Ada.Containers.Bounded_Hashed_Sets is Process : not null access procedure (Position : Cursor)); -- Calls Process for each node in the set - function Iterate (Container : Set) - return Set_Iterator_Interfaces.Forward_Iterator'Class; + function Iterate + (Container : Set) + return Set_Iterator_Interfaces.Forward_Iterator'Class; generic type Key_Type (<>) is private; @@ -431,13 +431,11 @@ package Ada.Containers.Bounded_Hashed_Sets is function Reference_Preserving_Key (Container : aliased in out Set; - Position : Cursor) - return Reference_Type; + Position : Cursor) return Reference_Type; function Reference_Preserving_Key (Container : aliased in out Set; - Key : Key_Type) - return Reference_Type; + Key : Key_Type) return Reference_Type; private type Reference_Type (Element : not null access Element_Type) @@ -446,7 +444,6 @@ package Ada.Containers.Bounded_Hashed_Sets is end Generic_Keys; private - pragma Inline (Next); type Node_Type is record @@ -519,6 +516,6 @@ private for Constant_Reference_Type'Write use Write; Empty_Set : constant Set := - (Hash_Table_Type with Capacity => 0, Modulus => 0); + (Hash_Table_Type with Capacity => 0, Modulus => 0); end Ada.Containers.Bounded_Hashed_Sets; |
