diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-09-02 07:42:02 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-09-02 07:42:02 +0000 |
| commit | e4caa3ff787f34c6127a5398a6b768fdcf3783a8 (patch) | |
| tree | 1f2038976e3af2cad4e6cafba381cd8f89549f8b /gcc/ada/lib-xref.adb | |
| parent | 4da9eaf90e19ea967af478669621fa97d20f624d (diff) | |
| download | gcc-e4caa3ff787f34c6127a5398a6b768fdcf3783a8.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178438 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/lib-xref.adb')
| -rw-r--r-- | gcc/ada/lib-xref.adb | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/gcc/ada/lib-xref.adb b/gcc/ada/lib-xref.adb index 2dbf5ff23d2..15edfb6c57b 100644 --- a/gcc/ada/lib-xref.adb +++ b/gcc/ada/lib-xref.adb @@ -205,7 +205,7 @@ package body Lib.Xref is function Equal (F1, F2 : Xref_Entry_Number) return Boolean is Result : constant Boolean := - Xrefs.Table (F1).Key = Xrefs.Table (F2).Key; + Xrefs.Table (F1).Key = Xrefs.Table (F2).Key; begin return Result; end Equal; @@ -373,12 +373,12 @@ package body Lib.Xref is Set_Ref : Boolean := True; Force : Boolean := False) is - Nod : Node_Id; - Ref : Source_Ptr; - Def : Source_Ptr; - Ent : Entity_Id; + Nod : Node_Id; + Ref : Source_Ptr; + Def : Source_Ptr; + Ent : Entity_Id; - Actual_Typ : Character := Typ; + Actual_Typ : Character := Typ; Ref_Scope : Entity_Id; Ent_Scope : Entity_Id; @@ -1882,10 +1882,10 @@ package body Lib.Xref is if XE.Key.Typ = 'e' and then Ent /= Curent - and then (Refno = Nrefs or else - Ent /= Xrefs.Table (Rnums (Refno + 1)).Key.Ent) - and then - not In_Extended_Main_Source_Unit (Ent) + and then (Refno = Nrefs + or else + Ent /= Xrefs.Table (Rnums (Refno + 1)).Key.Ent) + and then not In_Extended_Main_Source_Unit (Ent) then goto Continue; end if; |