diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-09-02 09:42:02 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-09-02 09:42:02 +0200 |
| commit | 2c17ca0a2f305b29c9efa0e05e27583f775d005d (patch) | |
| tree | 1f2038976e3af2cad4e6cafba381cd8f89549f8b /gcc/ada/s-htable.adb | |
| parent | ed32b82e77377f2905fd1a2b74bff4b06d108ef2 (diff) | |
| download | gcc-2c17ca0a2f305b29c9efa0e05e27583f775d005d.zip gcc-2c17ca0a2f305b29c9efa0e05e27583f775d005d.tar.gz gcc-2c17ca0a2f305b29c9efa0e05e27583f775d005d.tar.bz2 | |
[multiple changes]
2011-09-02 Robert Dewar <dewar@adacore.com>
* exp_util.adb, sem_ch10.adb, sem_attr.adb, s-htable.adb,
g-comlin.adb, g-comlin.ads, lib-xref-alfa.adb, lib-xref.adb: Minor
reformatting.
2011-09-02 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch3.adb: (Set_Anonymous_Type): Associate the itype of an
inherited component with the enclosing derived type. Code reformatting.
2011-09-02 Gary Dismukes <dismukes@adacore.com>
* checks.adb: (Determine_Range): Add test of OK1 to prevent the early
return done when overflow checks are enabled, since comparisons against
Lor and Hir should not be done when OK1 is False.
2011-09-02 Gary Dismukes <dismukes@adacore.com>
* exp_ch6.adb (Add_Finalization_Master_Actual_To_Build_In_Place_Call):
Add new formal Master_Exp. When present, add that expression to the
call as an extra actual.
(Make_Build_In_Place_Call_In_Object_Declaration): Add variable
Fmaster_Actual and in the case of a BIP call initializing a return
object of an enclosing BIP function set it to a
new reference to the implicit finalization master
formal of the enclosing function. Fmaster_Actual is
then passed to the new formal Master_Exp on the call to
Add_Finalization_Master_Actual_To_Build_ In_Place_Call. Move
initializations of Enclosing_Func to its declaration.
2011-09-02 Thomas Quinot <quinot@adacore.com>
* csets.ads: Minor reformatting
2011-09-02 Hristian Kirtchev <kirtchev@adacore.com>
* exp_aggr.adb: (Get_Constraint_Association): Add code to retrieve
the full view of a private type coming from an instantiation.
* exp_ch4.adb: (Current_Anonymous_Master): Reimplement the search
loop to iterate over the declarations rather than use the
First_Entity / Next_Entity scheme.
From-SVN: r178438
Diffstat (limited to 'gcc/ada/s-htable.adb')
| -rw-r--r-- | gcc/ada/s-htable.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/s-htable.adb b/gcc/ada/s-htable.adb index 68a4ac3..7b5ee03 100644 --- a/gcc/ada/s-htable.adb +++ b/gcc/ada/s-htable.adb @@ -195,16 +195,16 @@ package body System.HTable is ------------------------ function Set_If_Not_Present (E : Elmt_Ptr) return Boolean is - K : constant Key := Get_Key (E); + K : constant Key := Get_Key (E); Index : constant Header_Num := Hash (K); - Elmt : Elmt_Ptr := Table (Index); + Elmt : Elmt_Ptr; begin + Elmt := Table (Index); loop if Elmt = Null_Ptr then Set_Next (E, Table (Index)); Table (Index) := E; - return True; elsif Equal (Get_Key (Elmt), K) then |