diff options
| author | Robert Dewar <dewar@adacore.com> | 2011-08-30 13:31:38 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-30 15:31:38 +0200 |
| commit | 996c8821a235a2313d3574d0815044847f7b5c14 (patch) | |
| tree | 2f3990f111f9ff03c198e8c4705bb7595db190bc /gcc/ada/lib-xref-alfa.adb | |
| parent | 8ed6164c72a03658c50da50f2ead9ed18d41b727 (diff) | |
| download | gcc-996c8821a235a2313d3574d0815044847f7b5c14.zip gcc-996c8821a235a2313d3574d0815044847f7b5c14.tar.gz gcc-996c8821a235a2313d3574d0815044847f7b5c14.tar.bz2 | |
exp_ch5.adb, [...]: Minor reformatting
2011-08-30 Robert Dewar <dewar@adacore.com>
* exp_ch5.adb, sem_ch3.adb, sem_ch5.adb, einfo.adb, checks.adb,
sem_util.adb, sem_util.ads, sem_res.adb, s-stposu.adb, sem_attr.adb,
exp_ch4.adb, exp_ch6.adb, s-bbthre.adb, lib-xref-alfa.adb,
sem_ch8.adb, sem_disp.adb, exp_ch3.adb: Minor reformatting
2011-08-30 Robert Dewar <dewar@adacore.com>
* gnat_rm.texi: Add section on C.6(16) implementation advice for pragma
volatile.
From-SVN: r178303
Diffstat (limited to 'gcc/ada/lib-xref-alfa.adb')
| -rw-r--r-- | gcc/ada/lib-xref-alfa.adb | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/gcc/ada/lib-xref-alfa.adb b/gcc/ada/lib-xref-alfa.adb index 32439a0..91d2ea06 100644 --- a/gcc/ada/lib-xref-alfa.adb +++ b/gcc/ada/lib-xref-alfa.adb @@ -23,10 +23,11 @@ -- -- ------------------------------------------------------------------------------ -with ALFA; use ALFA; -with Einfo; use Einfo; -with Nmake; use Nmake; +with ALFA; use ALFA; +with Einfo; use Einfo; +with Nmake; use Nmake; with Put_ALFA; + with GNAT.HTable; separate (Lib.Xref) @@ -527,9 +528,9 @@ package body ALFA is Heap : Entity_Id; - -- Start of processing for Add_ALFA_Xrefs - begin + -- Start of processing for Add_ALFA_Xrefs + begin for J in ALFA_Scope_Table.First .. ALFA_Scope_Table.Last loop Set_Scope_Num (N => ALFA_Scope_Table.Table (J).Scope_Entity, Num => ALFA_Scope_Table.Table (J).Scope_Num); @@ -819,6 +820,7 @@ package body ALFA is Line => Int (Get_Logical_Line_Number (XE.Loc)), Rtype => XE.Typ, Col => Int (Get_Column_Number (XE.Loc)))); + else ALFA_Xref_Table.Append ( (Entity_Name => Cur_Entity_Name, |