diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-20 11:08:55 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-20 11:08:55 +0200 |
| commit | e361e9a1dbb5b357207de2b6459b8f69f96420da (patch) | |
| tree | 601763d688f331606803f2039b3d8354dfdcc11a /gcc/ada/lib-xref.adb | |
| parent | d67ffa886d642c7a08441023971a3c5099b58d4e (diff) | |
| download | gcc-e361e9a1dbb5b357207de2b6459b8f69f96420da.zip gcc-e361e9a1dbb5b357207de2b6459b8f69f96420da.tar.gz gcc-e361e9a1dbb5b357207de2b6459b8f69f96420da.tar.bz2 | |
[multiple changes]
2016-04-20 Javier Miranda <miranda@adacore.com>
* sem_ch5.adb (Analyze_Iterator_Specification): Remove transient
scope associated with the renaming object declaration.
* exp_util.adb (Insert_Actions): Remove handling of iterator
loop marked as requiring the secondary stack.
2016-04-20 Ed Schonberg <schonberg@adacore.com>
* sem_attr.adb (Analyze_Attribute, case 'Image): Implement
AI12-0124, which extends the functionality of the attribute so it
reflects the semantics of GNAT 'Img when applied to scalar types.
* lib-xref.adb: minor whitespace layout fix.
From-SVN: r235242
Diffstat (limited to 'gcc/ada/lib-xref.adb')
| -rw-r--r-- | gcc/ada/lib-xref.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/lib-xref.adb b/gcc/ada/lib-xref.adb index 4751cd3..d64b4b2 100644 --- a/gcc/ada/lib-xref.adb +++ b/gcc/ada/lib-xref.adb @@ -1174,8 +1174,7 @@ package body Lib.Xref is while Present (Formal) loop if Ekind (Formal) = E_In_Parameter then - if Nkind (Parameter_Type (Parent (Formal))) - = N_Access_Definition + if Nkind (Parameter_Type (Parent (Formal))) = N_Access_Definition then Generate_Reference (E, Formal, '^', False); else |